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SC/FOX DRAMI032 Board (actual atxt} 



The DRAM 1032 is a plug-on daughter board which 
Edtaches direcUy to either the SBC32 startd-atone or 
PCS32 PC plL>g-in single board computers. 

Up to 16 M5 on-board DRAM. 

5 MB/sec SCSI controller supports up to 7 SCSI 

devices. 

16-bit bidirectional parallel port, may be configured as 
two 8-btt ports. 

4 Serial poets, configurable as 4 RS232 or 2 RS232 
and 2 RS422. 

Each serial pott is separately programmable in ^ 

standard baud rates up to 230K baud. 

4 input handshaking and 6 output control lines. 

7 general purpose latched TTL level output lines. 

11 general purpose TTL levef Input lines wtlh 

Interrupls available on either transition. 

2 programmable counter/timers, may use internaJ or 

external event trigger and/or time base. 



Wristwatch chip keeps correct time and date (battay 

included) wfth or without ^stem power. 

24 t)ytes of keep-alive CMOS RAM, powered by 

wrisiwaich battery. 

Source code driver software and test routines for 

SCSI, parallel and serial ports, DRAM, timers, CMOS 

HAM and wristwatch chip included. 

Interrupts available fOr all I/O devices. 

No jumpers, totally software corriigurable. 

Hardware support for fast parallel to SCSI transfer. 

Multiple boards may be stacked in one system. 

Two 50-pin user application connectors. 

Single +5 Volt low-power operation. 

Full power and ground pl^es. 

Input for external +5 voft supply to keep DRAM data 

in case of loss of main power. 

6 layer, Eurocard-size: 100mm x 160mm. 

User manual and Interfaoe schematics included. 



See application article in this issue. 

For additional product and pricing information, please contact us at; 

SILICON COMPOSERS INC 208 California Avenue, Palo Aito, CA 94306 (415) 322-8763 
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Features 

Interfacing to Extended Memory 

Jesus Consuegra 

Forth is still known for functioning well in limiied-iiAiM environments, but that constraint 
doesn't have to apply to your MS-DOS workhorse. When this author needed lo process lots of 
MIDI data from a synthesizer, he first learned how to bring Miaosoft's Extended Memory 
Specification into his i'ortti system, 

Random Disk Records 

Brian Sutton 

Creating a random-access data base program often trips up the over-confident neophyte 
programmer — in any language. A decade of Forth experience laughl Uiis chiropraclor enough 
lo implemeni security features, dynamic file sizing, mixed record sizes, error tiandling, and 
more. Like the author, you could run a business based on this slick application. 

Structured Pattern Matching 

Ariel Scolnicov 

I'inally, a sophisticated string-handling wordset for F-orlh tliat doe.s more than just accept and 
manipulate siring input. That is, you can define patterns to describe classes of strings, ilien use 
the search engine to find various permutations of pattern combinations. These tools offer all 
the string-handling functionaJity of SNOBOL in a Forth implementation, 

CItina's National Forth Examination 

C.H. Ting, trans. 

Test your Forth knowledge, and check your own skills against ihtjse expected of I'orth 
programmers in the People's Republic of Ctiina. This is an t'nglish translation of the exam 
administered in that countiy last year. 
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Last Chance 
There is still time to enter 
our contest for articles about 
"ForSi on a Grand Scale." 

Many peopl estillaren'taware 
of large Forth applicaUons, 
of Forth components in com- 
plex systems, of significant 
multi-programmer projects, 
etc. 'l"o improve Llic general 
awareness of how Forth per- 
forms in "the big leagues, " 
and to enlighten those who 
only know the lean and mean 
side of I'orth, we arc offering 
cash awards lo the top three 
papers we receive on the 
subject. See the ad on page 
40 of this issue for details — 
better do it now, since the 
contest deadline is August 3! 

Of course, articles re- 
ceived after that daic will still 
be considered for publica- 
tion, they just won't qualify 
for the prize money. 

Speaking of Which. 

R>rth D/mensicm thrives 
best when its readers partici- 
pate most We are constantly 
looking for a broad range of 
a rii ctes: a pplica t ioiis , 11 1 il i t ICS , 
tutorials, vendor/developer 
interviews and success 
Stories, examples of Forth 
technique, hardware pro- 
jects, es^ys, and letters to 
the editor come to mind. 
Because we aresTidi a widely 
distributed and diverse 
community, it is important 
for ytju to remember tliat wc 
are indeed interested in what 
you are dcwng. Not every 
artidc should be vcr\- ad- 
vanced (our "hot ihcrmom- 
eter' rating) — many readers 
need more moderate fare at 
their current ^ge of Forth 
expertise. So don't feel, 
because your magnumcpus 
isnt forthcoming, that you 
have nothing to cxintrilxite. 
We "wrni lo hear from you! 



Update your Rolodex 

Those of you who have 
foEowed the Forth Interest 
Group for any length of time 
know that, like any organi- 
zation, it is always seeking to 
improveiis efficiency. As part 
of the most recent diaries, 
please note the new address 



and telephone numbers on 
our ma.'^thead and mail- 
order form. The change in 
offices will, ft is believed, 
substantially help coasol id ate 
and coordinate the business 
of mnning this membership 
organization. 

— Marlin Ouverson 



ANS Forth Update 

FnmElizabethD. Rather, cbairpenonofibecxmmuteeGQJM) 
deveicptngANSFotU}, toe rec^ved Wis n^xirtda^ 3/23/92: 

"The four-month public review period for the Draft 
Proposed ANS I'orth (dpANb) dosed 1-ebmary 25, 1992. X3J 14, 
the Technical Committee devdopii^ ANS Forth, received a 
total of 34 official comments and three lace comments. Many 
ofthecommentswere multi-part, producing a total cfover200 
discrete items. Of the 37 comments, only three were negative. 
The others were generally supportive, poiniing out unclear 
issu^, making specific suggestions, and noting typos 

"All the public review comments, as well as a niimlx;r of 
technical proposals, were considered by X3jl4 in its 19th 
meeting held March 17-21 at Athena Programming near 
Portland, Oregon. Reported typos will be fixed, many of the 
suggestions were adt^ed (or al ternali ve solutions were fou nd 
for the problems raised), and the document was darified in 
many areas. 

"As required by X3 procedu res, all commentorswill receive 
responses drafted and approved by theTC. In addition, theTC 
agreed to send each commentor the complete set of comments 
and responses, and a copy of the changes made to the 

document. 

"The TC was pleased at the amount of time and effort 
invested in the comments. Many interesting and valid points 

were raise xi, and the d(x:umcnt is much improved, '(he 
improvements are incremenial in nature, with no radical 
changes in policy or approach (exc^ ft>r the three comments 
noted atxive, extensive reviaons were not requested). Several 
words were dropped from extension wordseLs, and .some others 
were added (paiticulady in the Floating Point wordict). A few 
words got more-mnemonic names, descriptioas and require- 
ments were darified, and more Rationale material was added. 

"Hienewsed dpANS will be released for a two-month public 
revdtewsoon, (»obably early or mid-May. As before, copies will 
bcaMilable fiomGloW Engineering Documcnis, 2805 McGaw 
Avenue, In, ine, California 927H (80(HJM-7179,or7l4-26l-l455 
from outside tlic U.SA and Canada). Comments rccdved 
during ilTis period will be considered in Seplcnibcr. '1 his pnKcss 
will repeat until t he TCdctcn nines tliat no additional substaiiLive 
changes need to be made, at whidi time ilie document will be 
forwarded to X3 for processii^ as an ANS." 
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Forlh Dimensions v.'f-lromps 
editorial material, letters to the edi- 
tor, and coimiieiits ffOfTi iLs readtri. 
No responsibility is asstimod for 
aix^racy of sQbmIs,si<;3tis. 

Sutjscriplion to Forth nimen- 
siom is included with membership 
in the Forth Intetesi Group at $40 
per year ($52 overseas air), For 
membiership, change of address, 
and to submit items for publica- 
tiOii, itic address is: Foitti Interest 
Group, P.O. Box 215'i, Oakland, 
California 9'^62^. AdminLwative 
offices: 51CWi9-FORTH. Fax: 510- 
535-1295. Ad sales; 805-?46-2272. 

Copyii^ O 1992 by Forth in 
teres Croup, Jac. The muer Ul coa- 
tained in lUs periodical (txit not 
the code) is copyrighted by the 
individual auUiors of ihe anides 
and by Foith Interest Group, Inc., 
respectively. Any reproduction or 
tise of this pcrkiidical as it Is com- 
piled or the articles, except repro> 
ductions for non-ooounercial pur- 
poses, without the written permis- 
^on of F<MIh Interest Group, Inc. is 
» viotation cf the Copyrigtit Laws, 
Any code bearing a copyright no- 
tice, however, can be used only 
with permission of the oopyrighit 
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The Fatr Interest Group 

TIic Ft?nh IntercisL Group is the 
asscxriation c>f prograrjinteirs, mari- 
agcrs, and engineers who creitir 
fjrat;Lit::il^ rtjrlh-i,KJ.^cd s^jiutiojis to 
r^.'al-wori^': nf^ods. M:iny ic^c.^cch 
tiardware ai'Ld.M.>f,wiirt: desij^[is that 
will advance t;ic gc[;crai itate tit 
the art. FIG provides a tlimaie of 
intelleottial cxctiangt; and tx-neHr^ 
intended to assist each of its mem- 
bers. Pablieations, ct>nferenccSj 
St; mina f s , tclecommunicatkjns, and 
area chapter meetings are atiBng 
its activities. 

"Forth Dimensions OSSN 0884- 
0622) is puMJshed bintjonthly for 
i4Q/46/5i2 pet year by the Forth 
Inieiest Gtoup, 1330 S. Basoom 
Ave., Suite D, San Jose, CA 951Z3. 
Second-ctass posta^ paid at San 
Jose, CA. POSTMASTER: Send ad- 
dress changes to FoftItIXm«Hsioins, 
P.O. BOK2154, Oaldand,CA94£21." 
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Letters to the Editor— and to your fellow readers— are attvays welcome. 
Respond to articles, describe year latest projects, ask for input, advise 
trie rcrtti comn-iuniiy, or simply sti3/6 a recent insight. Code is also 
weicorr,e. hvr ;k opt!or\al. Letters may ba edUed for clarSy and longth 
We want to hear from yotil 

Response and Apology 
Herein I hope to apologize for my errors, exfJain myself 
more fully, and suggest some further articles I'd like to sec 

publiishcd. 

I would like lo apologize to anyone who look comments 
in my artide in issue XIII/2 as a criticism of Jim Callahan's US/ 
FORTH. It was certainly not my intention to in^ly his Forth 
was anything otherthan a fine product. Althou^ I have not 
used it personally, I have never heard a bad word about HS/ 
FOR'I H or its author. 

My comments were, however, intended to be a aitici^ni 
of a claim in Ws advertisement While merely my own 
opinion, and others may read his ad differently, I felt (ii,s ad's 
claim of compiling 40,0CX) lines per minute was almost 
meaningless, in that no details were given as to how the 
figure was reached. I tried to illustrate, usii|g some specific 
timings on Pygmy, that it makes a hell of a difference vrficther 
you are running on a 4,77 M5 !z PC or a 33 MHz '3S6. In his 
letter in issue Xni/4, he supplied some of those details 
Cmnning on a '286, ^c). I think his ad would be stronger by 
includir^ tt^ processor and dock speed details but, of 
course, that is entirely his business. Indeed, I appreciate his 
advertising in Forth Dimensions and thereby helping to 
support it. My exceptioas to certain pans of his ad should be 
kept in perspective. 

Jim also s-uggested Forth DimenstonshsiS an a nti- vendor 
bias. If it does, I have not been aware of it. It is my belief my 
article on Pygmy wa.s publi.shed because it was one of the 
best available ai the time, rather than because FottbDinwn- 
sions is biased against vendors. I would be most happy to see 
Fo rt A Z)» mens 1 oris publish an ariicle written by Jim about liis 
HS/f-'ORTH. And, if 1 am wrong about iJic a nti- vendor bias, 
I would like to see Jim write a letter or aitide putting forth 
his evidence and reasoning. 

I am also struck by another aspect of Jim's advertisement ; 
it .seems to imply some of HS/rORIH has been jiiratcd by 
others and/or that some of his development work has been 
stolen or misused. My first reaaion is to reject this as a vague 
claim given without supporting details. If there are support- 
ing details, I think a full tteatmait of this subject would make 
a great attide, and I would like to encourage Jim to write itf 
Sincerdy, 
Frank Sergeant 
809 W. San Antonio St. 
San Marcos, I'exas 78666 



Threading a Menaory Waste 

Dear Sin 

I would l<> ihank fiuy Kelly for pr(.)ducirig an article 
reviewing a few a.spects of so many Forth systems [FOXU]/ 
61. Such articles are long overdue in Forth Dimensions and 

I 

Forfft Dimensions 



will prove a great service to anyone interested in Forth. 

I wou 1 d , h ow e vc r , I ike to ex pa n d u pen a Eew rfthe poi nts 
covered. The main emphasis of the article was on the rdative 
.speeds of the various systems and architectures, and is 
therefore incomplete without an analysis of the costs asso- 
ciated with any speed advantage. Trueoptimization involve 
economy in the use of memory, and the avoidance of built- 
m limits to expansion, as well as raw execution performance. 
We examined both direct and subroutine threading a decade 
ago — and rejected both for reasons that obviously still hold 
today. They waste memory for marginal speed improve- 
ment, better obtained where needed by local optimization. 
When attempts are made to limit the memory wasted, the 
inevitable result is unacceptable limits on program space 
available and sacrifice of the performance g.iincd 

Direct threading, wliiie marginally fa.stcrihan indirect (for 
very simple prpgram.s) u.scs anywhere from si\ ;o 20 extra 
bytes for every single colon definition. Paragraph-aligned list 
structures such as used by F-PC waste an additional average 
of eight bytes per colon definition, Mcmorv' and disk space 
may be cheap these days, but they are always limited, 
especially if you arent your only dient. 

Speaking of waste, some I'ortfis such as polyIXJii"IH 
whidi daim multi-segmc ntixugram space do so b >• du p I i eat- 
ing the entire ba.se of the application in each segnieni so that 
a three -segment, 172K program has tJic lower 32K of eadi of 
the three segments identical, wasting 64K of core and disk. 
HS/POKTI I is mu Iti-S^piOiUwithtXJtany duplicationor waste. 

Ceariy, an optimizer that totally eliminates NEXT linkage 
wlierc speed is es,seniial will prf^duce code that is faster and 
overall more compact than direct threading. We were curious 
how the LMI optimizer seemed togivea fasterSieve time than 
ours. Mystery solved. They optimize variables and DO lOOP 
indices as embedded conaants and hope they'll never 
change. Works fine for the Sieve, good hick in real life. 
Sincerdy, 
Jim Callahan 
Harvard Softworks 
P.O. Box 69 
Springboro, Ohio 45066 

Optimizer Concern Misplaced 

Dear .Marlin: 

Congratulations on publishing the fine article by Guy 
Kelly, and tfiank you for forwarding the ct)py of .Mr. 
Callahan's letter, i'ortunaidy, Mr. Callalian's concern about 
the applicability of our optimizer to real-life situations is 
misplaced. The optimizer ,s[ieci Really looks for situations 
where DO LOOP indices and other parameters are in fact 
constants, as is the case with the DO LOOP indices in the Sieve 
benchmark, and then compiles the values as embedded 
literals. When the parameters for a DO LOOP are not 
constants- — for example, if they are pa.ssed into a definition 
on the stack or loaded from variables — the optimizer gener- 
ates completdy diHeroit code. 
R^ards, 
Ray Duncan 

Laboratory Microsystems Inc. 
12555 W. Jefferson Blvd., Suite 202 
Los Angdcs, California 90066 

(Cofitinued on page 42.) 
\ Julv 1992 Auaust 
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Interfacing to 
Extended Memory 



Jesus Consuegra 
Sitges, Spain 

This paper describes a practical approach to interfece to 
ihc XMS (lixiendcd Mcmop,' Specification), to allow MSDOS 
Forth programs to access the memory beyond the artificial 
limit of 640 Kbytes that MSDOS can directly handle. 

Introduction 

After ma ny years digging around and trying many differeni 
Forth dialccLs, last year I found the Forth environment of my 
dreams: UDFOKI H, a compact yet powerful implementation 
of Forth-83, with some extea^ions and only one incompat- 
ibility. The fxoduct is manufactured by a company called 
Upper Deck Sj^stenw. TTie product is quite robust, with an 
easy in[crface to the user: it uses standard text files and 
includes a full-screen, puU-down-menus text editor that 
drops you automatically into an offending error when it 
occurs, Altiiough the matma! is a little sparse, a Forth 
programmer can easily find his way through this system with 
the help of the sampJe programs included (a reduced version 
of the Unix utility grep among them). 

This interface was bom as a 
requirement to field big streams 
of MIDI data from an electronic 
musical insimment. 

One of the big criticisms of Forth is that one has to reinvent 
the wheel for him/herself any time one wishes to use a 
specific tod or feature. The una\^ilability of compiled code 
to link to Forth, and the large number of di liferent Forth 
dialects in use has prevented wider use of F'onh in commerdai 
environments. 

As an example of how one tias to set up their own tools, 
Fm going to describe an XMS (Extended Memory Specifica- 
tion) interface for MSDOS. 

After some wars on expanding or extendir^ tnetnory, 
Microsoft decided to establish an unified extended memory 
specification for 80286/386/486 cla.ss machines running 
MSDOS. The availability of big chunks of memory can 
dramatically improve the performance of many programs. 

This interface was bom as a requirement to hold big 
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Streams of MIDI data from an electronic musical instrument 

but , since then, I've used it in oihcrbusine.<is programs to hold 
large arrays of data without the need to first define virtual 
disks in memory and then treat the arrays as if they were disk 
files. 

The firslthing a programmer has to do to interface to XMS 
is find out where the service routine sits in memory, 'i b do 
so, one has to issue an ii^enupt $2F, that tells if XMS is or is 
n ot in^alled. After tha t , another calltoint$2Fwithadifferent 
parametergives back the address of the service routine. Once 
the address of XMS is known, calling the different services is 
stiai^ufbiward: just place a specific value at registers AX and 
DX and issue a far tail to tlie service routine. 

This seems (and is) simple, but at ttie time of writing the 
program, I had no idea about how to issue such a call — even 
in machine code. 

After some unsuccessful querying on CompuServe (1 
have no acc^s to GEnie from SpainO, a fiiend of mine 
(Juanma Barranquero, co-sy,sop of the Forth confcrcnt e at 
NEXUS) and a couple of hours in front of a cold meal, gave 
me the clue (and the basics of 808X machine code I needed) 
to do iL The result is a two-line sequence of Forth-assembly 
instructions: 

' xms_address >body # bp mov 
es : Ibp] far call 

with xms_address being a 2variabie, 

Once this barrier was surpassed, the rest of the interface 
came in a worknight. That's the power of Forth! 

The code that comes with this paper Ls a self-explanatory 
sample of some of the fiinctiCMis supplied by the XMS driver. 
It should be easy to port to other Forth implernentatioas. 

Currently Fm working on another interface, thi.'i lime 10 
the Btrieve Record Manager. And in the queue, a CUA- 
comj^iant, text-only, fuU-featuted windowing interface is 
waiting. 

With those tools in hand, to write busiiu'v^ i ): ;)grams in 
Forth will be considerably easier. Upper Deck Systems has 
promised me a Windows version of UDFOKTH, What it 
becomes available, 111 stick to Forth for all my progiaxnming. 
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\ MODULE Xms 

\ This module has been written by Jesus Consuegra, who places it in the 

\ public domain. Although the author has reasonably checked the code, 

\ there are no implicit or explicit warranties that this code does not 

\ contain errors or mistakes. The users take all responsibility to check 

\ whether it is suitable for their applications. Use of this code is at 

\ your own risk. The author will appreciate comments, suggestions and 

S any kind of communication that can improve the wide spread of FORTH. 



\ Mail address : 

\ 
\ 
\ 
\ 

\ 

\ Bix: 

\ Compuserve: 
\ EUNET: 



Jesus Consuegra 
C/Enric Morera 36, 
Edifici Les Neus 
08870-SITGES 
< SPAIN) 

jesusc 
100014,3112 
jesuscfimet , f cro . es 



esc 3, 2-2 



\ = = ==: =: ====. == = = 

\ Some stuff to neatly print hex figures 

: (2hex) 

9 > if 

ascii A + 10 - 

else 

ascii + 
then ; 

: 2hex . 

dup 0< if 

256 + 

then 

dup 

16 / dup \ print high byte in hex 
(2hex) 

emit 

16 mod dup \ print low byte in hex 
(2hex) 
emit 

: 4hex . 

dup 8 shr 
2hex, 

$ff and 
2 hex. ; 

: 4hex : . 

dup 8 shr 
2hex. 

$tt and 
2hex , ; 



\ Tools for managing regs 

: regAH 

regAX $ffOO and 8 shr 

; regAL 

regAX $ff and ; 

: rcgBH 

regBX $ffOO and 8 shr ; 

: regBL 

regBX $ff and ; 

\ The XMS interface 

: xms? ( f ) 

\ Print error message and return a flag 
$4300 !> regAX 
$2f intse 
regAL $80 = if 

. " XMS installed " true 
else 

." XMS not installed. " false or 
then 

2variabie xms_address 

: get_xms_driver_address ( ) 

\ regES; regBX are the address 
$4310 !> regAX 
$2f int86 
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xegES regBX xins_address 2 1 

: 2how_)&!is_DElvSE_Mtir6SS ( — ) 
ge t_xras_dr i ve r_addre s s 
. " at address : " 

regES 4hex. regBX 4hex. cr ; 

\ = — — — 

\ Generic XMS request 

code xms_req ( — ) 
ds push 
bx push 
bp push 

■ regAX >body # bx mov 

es: [bx] ax mov 

' regDX >body # bx mov 

es: [bx] dx mov 

\ Call XMS service 

' xms_address >body # bp mov 
es: [bpj far call 

\ Return values to standard regS 

ax es r ' regflX >body #) mov 
bx es; ' regBX >bod.y #) mov 
dx es: • regDX >body #J mov 
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ASSETSt 

Curreni; Assetic 

Foothill Bank, Money Market 

Foothill Bank, Checking 
Pending Foreign Ocariog 
Rciurncrd ChjK.ks Pending 
FORML. Money Market 
FORML, Checking 
Total QuiciU Assets: 


15,925.58 
636.43 
-102.00 

0.00 

15.894.11 
1,92$. 01 
34.Z7953 


24,865.91 

70014 

51.67 
72.00 

1,236.64 
43,842^ 


change 
+ ■ Increase 
- " Decrease 

8,940.53 
65.71 
153 67 
7200 
1.022 35 
■6©.37 
9,5^.89 


Invenloiy: 

Inventory at cost 
Total Inventoryj 


HM7.53 
HM7.55 


2£i^l.l7 
26,£0].17 


-7,54&36 
-7,S4&J6 


Other Assets: 

Deposit, United Parcel Service 
Second Class PostaJ Account 

A ffC^ L h l^t^ R^^^IVA^IlV 

Tolal Olhcr Assets; 


200.00 
156.31 

3,522.51 


200.00 
l?2.'il 

2 OfX3 .00 

2,491.41 


o.no 
36.10 
-I 067,20 
-1,031,10 


TOTAl ASSETS: 




72,995.40 


965.43 


UABIUl'lESi 








Sales Tax 

FD Dues flUoc to future monihs 


35.8S 
37,48730 


35.58 
41,518.51 


1,69 
4/)31.2i 


TOTAL UAKUIIES: 


37.521.19 


41.554JJ9 


4,032.90 


Financial Rcseive: 


H42a7S 


31.38131 


^.04^^7 



bp pop 
bx pop 

ds pop 
next 
end-code 



value Ermes 



: E$ ! ! > Ermes ; 



ApiError 


c 


Ercode - — ) 






case 












$80 


Of 


5" 


Function not implemented." 


E$! 


endof 


$81 


of 


$" 


VDISK device detected." 


E$! 


endof 


$82 


of 




A20 error." 


E$! 


endof 


$8e 


of 


$" 


General Driver error." 


E5! 


endof 


$8f 


of 


$" 


Unrecoverable driver error." 


E$! 


endof 


$90 


of 


$" 


HMA does not exist . " 


B$! 


endof 


$91 


of 


$" 


HMA already in use," 


E$! 


endof 


$92 


of 


$" 


DX is less than /HMAMIN=." 


E$ ! 


endof 


$93 


of 


?" 


HMA not allocated," 


B$! 


endof 


$94 


of 


$" 


A20 line is still active." 


E$! 


endof 


$aO 


of 


5" 


All extended memory is allocated." 


E$! 


endof 


$al 


of 


$" 


All extended memory handles are in use." 


E$« 


endof 


$a2 


of 


$" 


Invalid handle." 


E$! 


endof 


$a3 


of 


$" 


Invalid Source Handle." 


E$! 


endof 
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$a4 


of 


$" 


Invalid Source offset." 


E$ ! 


endof 


$a5 


of 


$" 


Invalid Destination handle." 


E$ ! 


endof 


$a6 


of 


$" 


Invalid Destination Offset." 


E$ ! 


endof 


$a7 


of 


$" 


Invalid length." 


E$! 


endof 


$a8 


of 


$" 


Invalid overlap in move." 


E$ ! 


endof 


$aS 


of 


$" 


Pai:ity error." 


E$ ! 


endof 


$aa 


of 


5" 


Block not locked." 


E$l 


endof 


$ah 


of 


$" 


Block is locked." 


E$! 


endof 


$ac 


of 


$" 


Block lock count overflow." 


E$! 


endof 


$a<i 


of 


$" 


Lock failed." 


E$ ! 


endof 


$bO 


of 


$" 


A smaller UMB is available." 


E$! 


endof 


$hl 


of 


$" 


No UMBs available." 


E$i 


endof 


$b2 


of 


$" 


Invalid UMB segment number." 


E$! 


endof 






$" 


Unknown error code." 


E$! 





endcase 

Xms: " Ermes $. 



Show_Xms_Vers ion 
$ffff !> regOX 
!> regAX 

xms__ req 

regAX ." Version: " 4hex: . or 

regBX ." Internal driver revision: " 

4 hex:: cr 
regDX 1 - if 
." HMA does exist." 
else 

." HMA doesn't exist." 
then cr ; 

Show_HMA 

$ffff !> regDX 
$100 !> regAX 
xms^req 
regAX 1 = if 

." HMA assigned to the caller." 
$200 !> regAX 

xms_req \ free HMA 

regAX 1 - if 

." HMA successfully released" 
else 

Error on releasing HMA" cr 
regBI, ApiError 
then 
cr 

else 

regBIi ApiError 

then 

cr ; 

Show_A2 0_Line_Status 
$700 !> regAX 
xms reo[ 

regAX 1 = if 

." A20 line is physically enabled." 
else 

regBL ApiError 



then 
cr ; 

: Query_f ree_Exinem 

$0800 !> regAX 
xms_req 
regBL 0<> if 

regBL ApiError 

else 

." Largest free ext .memory block is 
regAX u. ." Kbytes." cr 
. " Total free extended memory is " 
regDX u . . " Kbytes . " 

then 
cr ; 

; DoTest 

Show_Xms_Dr iver_Addres s 

Show_Xms_Version 

Show_HMA 

Show_A20_Line_Status 
Query_f ree_Exmera ; 

: XmsTest 

els 

xms? if DoTest 
then ,- 

\ if you have the shareware version only, 
\ you have to do a save-exe instead. 

turnkey XmsTest XMSTEST.EXE 

\ End of file 
windowing 
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Random Disk Recotds 



Brian Sutton 



Tampa, Florida 

A number of yca^b agu, 1 began wriiing programs to use 
in my chiropractic practice lo try Co make life a liule easier. 
Since my computer was rather limitod Gt was a T1-$9/4sl), 
Forth was natu tally llie only available language that ofTcred 
even a glimmer of hope; of turning out something useful in 
a reasonable length of time. 

Ten years and a number of compuicfs later, 1 ihink I'm 
^rting to make some progress. Tlie random access words 
described in this article fonn iJie baas of my accounting 
program that tracks patient account, bills insurance, keeps 
the checkbook balanced, and generates profit-and-loss 
statements,. among other things. 

For a while, I put up with many bothersome housekeep- 
ing tasks that programs often have to perform, such as 
opening all the data files when the program starts, dosing 
them all upon termination of the program, making sure the 
data gets saved out just before the program terminates, etc 
.Another major consideration wa.s hck of RAM Q2K in then 
and 6lK in CP/M) and how to deal wiili the large amounts 
of data I needed to process. 

Thankfully, the ¥S5 buffer system caught my attention 
and seemed to be a simple and effective answer to my 
[problems. If the virtual mcmoo' concept worked SO well for 
i'onti screens, why not use it for dau too? 

So these words are basically an adaptation of the Forth 
screen bulFeis, wjthafewextrafeaajresthrown in. Themajor 
ways these tocds make progiamming mudi easia- are 

• The data files are atiiomatically opened when needed. If 
tiie file isn't used, it isn't opened 

• As data is entered and the file fills, it is automatically 
increased in size to accommodaic the new data. You can 
specify the size of each increment of file growth — I use the 
number of bytes in a clusto' onmy hard disk C8K), You can 
also specify that the pro^'am asks your permission before 
appending any file. 

•Thebufrersareofthe F83, truly-l easi-recen 1 1 v-used .scheme. 
This means that if you use Ibor buffers, you can have four 
different data addresses in memory without worrying 
about accessing an address that suddenly contains a 
different piece of data. 

• Also, each updated record is saved to disk before thebuffa* 
is re-used for something else. This is real handy here in 



i lorieb , where power outages are often a daily occurrence 
during the rainy season. The most we ever lose is tlie last 
entry in the journal, if that. 

• Llnlike the F83 buffers, you can mix records of different 
sizes in the buffers. For example, one retrord might be 256 
bytes while another is two. Even though my buffers are 
1 02i bytes, if a two-byte record is called only two bytes are 
read or written. 

• Each record is referenced just like a variable or an array. 
Entoif^ its name raums an addn^ on the stack that you 
can use to fetch or store tejrt or values. Substitute the word 
ACCOUNT_NAME for the Fonh wf)rd RT.OCK losee how this 
works. While 10 BLOCK returns the starting addr ess of a 
1024'byte Forth screen, 10 ACCOUNT_HAME might r^um 
the ^ittrtgaddressof the 24-bytename of account number 
ten, 

• The errOT-handling routines display whidi r«»rd or file 

wa^ being acc tw^xl when the error c)CCi.irrcd. 

• The word FLUSH saves all tlie records to disk and then 
closes allthcrecordfiles.'Ihisisespcciallyuscfulifyouuse 
a lot of data files — DOS won't let you have more that 15 
open handles (in addition to the console, printer, etc.) per 
program, even though the total number of open system 
files can be much higher. FCBs can be used to get around 
this limit CyuckO or you can write your own handle table, 
but 1 prefer to have my program execute FLtJSH every time 
it returns to a main menu, lliis offers additional data 
security and sc^esthesmultaneousopen-handlesprobkm. 
Since the files are re-opened automatically if they're 
needed again, the only tradeoff b maybe a few miUisec- 
onds spent opening the file. 

Definitions 

DOS Handle 

The number assigned by DOS for use in accessing disk 
files, on my system a number from five to 19. 

F-PCHanOe 

The address that contains Zimmer's 70-byte file path and 
name, atmlsute, and DCS handle. I've added two bytes to 
each F-PC handle when darned with the FILE : word to 
^re a link to the previous file 
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Figure One. 



file: book.dat 

file: price.dat 

file: stock.dat 

file: account. dat 

\ initial parent 
\ offset size file 



Record Control Block (RCB) 
An array of six bytes 
embedded in the code of 
each recofd dcfirution ffaat 
contains the addicts of the 
respective F-PG handle, the 
number of bytes in each 
rfcoid, and the ofTset inio 
ihc file of tlic first record. 

Parent File 

The file that contains your 
data for a given ( ccord name 
or group of records. Ycu can 
have either one defined 
record per parent file, or you 
may have a group of records 
^lare the same file but oc- 
cupying different locations 
in that file. 

Alternatively, you can 
have the records overlap, if 
you are so indined, I do this 
in at least one case: the real 
records are two bytes, but I 
also setup 1024-byte records 
that occupy tJie same data 
area for when I want to erase 
it all quiddy. 

Some values you may 
want to chanj^e: 

B / BUF Set iliis to tiie largest size record you 're likely 

to use. Ifyou needcoeiJaige it later, changing 
it wont aifect any of your current files. 

MAXFILES Themostfil^ you're likely to everuse in your 
program. This is just used for error Uapping. 

#BUFS The number of disk buffers you want. More 

buffers mean less frequent disk I/O, but also 
less security in case of power interruptions, 
DOS seizures, or coffee on the keyboard 

In order to set up your records, you will of course need 

to know what you intend to call each parent data file Tlie 
word FILE: will then create the structure for you. For 
example, executing 
FII£: NAMES.DAT 

will create the Forth word names ,dat and code to support 
records using the NAMES , DAT file. You do not have to have 
this file on your disk at this point. It will be created (or 
truncated, if already present) when you exccuteESTABLISH, 
i.a, NAMES.DAT ESTABLISH. 

F ILE : creates the F-PC handle , i nseiting any spedal path 
you might ha%-e stored in the RPATH string. This path is only 
necessary if you will be operating the program in a different 
directory from the data files. 
Forth Dimensions 



record 
name 



48 boofc.daL record: title 



\ name of the book 



2 book.dat recordi price \ how much $ ? 
\ two bytes will work for this if none of your book prices 
\ exceeds $655.35 

2 stock.dat record: stock \ how many of each book? 

32 account.dat record: account \ customer name 

file; stat.dat 

2 stat.dat record: pointers \ misc. pointers, values 

16 8 stat.dat record: purchases \ cumulative purchases 

\ The eight bytes will give me room to track a dollar amount, 
\ total # of orders, and the last order date; 

4 derive >#orders 
6 derive >latest 



The created file is cha ined to any previously created ones. 
'l"he variable CHAIN contains the address of the most recently 
defined F-PC handle, and from there you can track down all 
of them by following the links until you reach zero. 

In faa, the word DO-CHAIN is set up to do just that, 
executing tlie veclored CHAIN word for each file. It is u.sed 
for closing files, ctiangtng patlis, and displaying the chain. 

The word ?OPEN checks to see if a DOS handle is 
assigned If the field is le.ss ihan zero, it is assumed that the 
file is not open. When the file is closed, ihc IX)S handle field 
is set to -1. Before a file is opened, a check is done lo sec if 
there is a drive and path name in the F-PC handle. If not, the 
current directory Ls ir«erted. 

FiLK-ERR? displays ihe name of the file if there is a 
problem opening or dosing it. 

When an error occurs while acc^ng a record (nM 
opening or closing a file), ?RERR will display the DOS di.sk 
error code and any read/write error code, along wiili the 
record name (not the file) being accessed. 

I'm not going to go into a deiailed explanation oftheFSS 
buffer system here, since it is veiy prevalent and I only 
understand it for a few minutes at a Ume anyway, but I have 
changed the file pointer in the buffer descriptor array (the 
area around FIRST; RFIRST in this code) so that it points to 
ilie KCB instead of the FCB of the relevant file. 'Iliai way, 
when a read or write operation is called for, all the needed 
data (DOS handle, record length, euO is ri^t there for 
processing. 
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When 1 goL huld 'j{"l--PC, 1 itiOLiglil tliat maybe Zimrnci'H 
block buffer code might work even better with some minor 
adaptations, but I alreaciy had this written and the assembly 
coded dcfiniiions intimidatc;d mc. Perhaps someone dse can 
let me know how to make it fil? 

Reading a Record From Disk 
When it's time for a record to be read in, here is the 
sequence; 

MISSING saves out the oldest record (if updated) and 
(RBUF ) returns the buffer address. REC> reads the data in 
by accessing the RCR and calling REC-READ, which moves 
the file pointer (via DISKPREP) and attempts to read the 
record. 

If REC-READ discovers (hat the proper number of bytes 
weie not read, and no other error was encountered, (EX- 
TEND?) is executed. (EXTEND?) checks to see how many 
bytes need to be appended to the file to indude flie requested 
record. 

If the file needs to be enlai^ed, one of the following 
actions is taken: 

• If MONITOR equals zero, the record is read in automati- 
cally, 

• If MONITOR equals -I (mie), a dialog box appears 
asking you if you want to append the file the needed 
amount. If you select no, the program aboi ts. 

• If MONITOR equals 1, the dialog box only appears if the 
aniount to append ^ceeds the value you assigned 
EXTENT, which is (he minimum increment used lo 
extend files. *niis would normally happen only if you 
are not adding records sequentially (and/or your 
parameter stack gets mixed up.) 

I recommend that you leave MONITOR on, at least until 
you get most of the bugs worked out of your code; it will save 
you some debugging time. 

After the file is extended, the read operation is re- 
performed which places your record in one of the buffers. 
Note that records are always extended during read opera- 
tions only; you've got to read the record into a buffer before 
you have an address to store data. You shouldn't g^ any 
errors during write opeiations (even when the disk is lull), 
unless there is a disk problem 

Accessing the Records 

To read in a record, simply place ilie record number on 
the stack and invoke the record name. Supposing you had 
defined a l4-byle record called PHONE #, the phrase 
5 PHONE* ( ~ adr ) 

would read the fifth record imo a buffer, returning ihe buffer 
address. If you modify the data at lliis address (and execute 
UPDATE), it will be saved out when its buffer is needed for 
something else. 

Hie word THE is helpful at times, ll will return the size as 
well as the buffer address of the record specified. For 
example, 

7 THE PHONE* ( — adr ct ) 



returns liie address and lengtli of the seventli record, if tliLs 
were stored in text format, you could dien execute TYPE. 

IT is a vectored word. Initialiae it with the CFA of your 
record name, 
■ PHONE* IS IT 

would set things up so that .subsequent execution of IT 

would return the buffer address and byte count of your 

phone* record. In that case, these two phrases would 

produce the identical result 

3 the phone# ( — adr ct ) 

3 it ( ~ adr ct ) 

I use IT mastly for sorting routines-, the same routine can 
sort a variety of records simply by patching IT. 

SIZE> retumsthesize of thein-line record name without 
actually reading the disk. Usage would be: 
size> phone# ( — ct ) 

The three words THE, IT, and SI2E> are all state smart. 
They will, therefore, work the same interactively as they do 
inside a definition. 

DEL- PATHS is provided to allow you to delete any paths 
that might have been prt^>ended lo your F-PC handles. This 
is in case you want to change data directories. I keep records 
from previous years on floppies, and my current year on tlic 
hard drive. When I want to change years, 1 call this word and 
change the logged drive, 

Debugging/Infonnation Tods 
Hie word BUFS allows you to see which records are 

currently in the buffers. Information listed is the record 
number, the record name, and the drive/paih/file name, if 
the record has been updated, an asterisk is displayed after tlie 
record number. The records are listed in order of the most 
recently accessed — therefore, the last one you see will be 
overwritten when ilie next record i.s read from ifie di.sk. 

, CHAIN is provided to show all the defined parent files. 
The information displayed here is the DOS handle and the 
drive/p.idi/file narne. If no drivc/padi is present, it means 
that you have not accessed that record yet (or liave executed 
DEL-PATHS). Once a record is opened, the path name 
remains — even after being closed 

An Example 

Just to give you an idea of how tliis all works, .su pposeyou 
were designing program for a mail-order bookstore. You 
might set up tlie files and records shown in Figure One, 

At the risk of confbsing things, I've combined three 
records into one record structure (PURCHASES) to illustrate 
how you can cut down on the number of data files, if you so 
desire. Grouping the three data structures together under one 
record name like this allows you to have an unlimited 
number of each. If you had defined tlictn as disliiict records 
starting at different offsets in the same file, you would run the 
risk of not aUowingenoughs|^ce for cuscomer-base growth, 
not to mention having to create a large file before you have 
any data to enter. 
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Data structure: 



#books off update 



Y 

double- 
precision 
$ value 



encoded date 
of last order 



# of orders 



The way to retrieve the number of orders filled for 
customer *15 Is to execute: 
15 purchases >#orders 8 

The alternative way c^keeping these all in the same file 
would be to decide on a maximum number of customers 
ClOOOO for this example) and do the following: 

2 stat.dat record: pointers 

\ this doesn't change 
6 4 stat.dat record: purchases 

\ just the dollar amount now 
40006 2 stat.dat record; #orders 
60006 2 Stat.dat record: latest 

1 1 u' trouble is, IVe now limilod myself to 10,0CW cuaomcrs 
and -dho am starting out with a 60K file before my first orderl 
1 his problem doesnt arise, of course, if you don't combine 
records in a file. 

If you combine many records, ihe word ALLOW will help 
you save some math. Usirig it, the above example becomes: 
2 3 allow stat.dat record: pointers 

4 10000 allow stat.dat record: purchases 
2 10000 allow stat.dat record: #orders 
2 stat.dat record: latest 

For keeping track of books and customers, let's create 
three records to work with: 
labeling pointers 

label: #accounts 
\ : #accountS 

1 label: #titles 

\ : #titles 1 

2 label: #books 



tbooks 



\ These are equivalent: 
pointers ; 
pointers ; 
pointers ; 



Now to enter some data. 

Execute the followingto create the necessary files on your 
disk; 

book.dat establish 
price.dat establish 
stock.dat establish 
acGount.dat establish 

stat.dat establish 

\ Zero out your customers and inventory: 
^accounts off update 
♦titles off update 



You could define the following word to 
add new books: 



titles! < 
begin 



while 



repeat 



~ ) 

cr ." Title: " 

# titles @ the title 

2dup blank 

expect 

span @ 

update 

#tltles +dsk 



This allows you to enter book names until you press a 
<cr> without any entry. You can add the prices later. 

To type the name of book *!, enter: 
1 the title type <cr> 

To see how many titles you have entered: 

ftitles ? <cr> 

It couldn't get much simpler! You can exit b"-PC (by typing 
BYE), restart it again, and your data will still be there. 




The following situations have tx;cn carefully tested and 
found to exhibit undesirable beiiavior; 

1 . If any Files have been appended, FLUSH must be executed 

before terminaungl--PC. This is done automatically if you 
use BYE, but if DOS sci/.es up or you crash your program 
you'll most likely end up with lost clusters where your 
new records used lo Ije. 

2. If you load your program, FORGET part of it, then re-load, 

you may wind up with a problem when you execute 
FLUSH or .CHAIN, since FORGET doesn't tell CHAIN 
which links were forgotten. To avoid problems here, if 
you FORGET fln>' parent files ai all, forget them all atid 
execute CtiAIN OFf before rc-loading. In faa, it's prob- 
ably a good idea to put CHAIN OFF just before your first 
FILK : command. 

3. if you do *2 (above) w ill lout FLU Siting between reloading^, 

you'll soon use up all your DOS handles if you access any 
records in between. This is because the original handles 
were forgotten before they were dosed. You will sud- 
denly be unable to open your files. 

Mate.- This source code is available in the FIG software library 
on GEnie, file* 2586, RNDMRECS.ZIP. 
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Each named record has a Rpcn-c; "rntrol Block {RGB) associated with it 
(not to be confused with an FOB) which contains the following info: 

Record Control Block; 



I'll 



Offset into file of first record 

I of bytes per record 
-address of FPC file handle 



L 



Each file Structure consists of an FPC handle with 2 bytes appended to 
link to the previous file. This allows all files to be closed at once 
using FLUSH. 



ziitimer's FPC handle structure: 



The HANDLE memory data structure is as shown here. 

Ibyte 65 bytes 2 bytes 2 bytes 

[ count ] [ name,.,.0 ] [ attrib ] [ handle > -1 ] 

addr addr+1 addr+66 addr+68 

L 



NAM 



the 
t: ii 



ATTRIB 



roturnori bv 



L 



HNDLE 



2 bytes 
[ link to 
previous 
handle in 
chain ] 



I've added this part 
for the chained parent 
files. 



The address of this handle is returned by the word >RHANDLE given the address 
of the particular Record Control Block. 

comment ; 

read- write def-rwmode 

1024 constant b/buf \ set this to your maximum- expected record size 
create rpath 64 allot rpath off 



\ create record family 

variable chain 

60 constant maxfiles 



file: ( — ) \ usage => 
>in @ 

handle here b/hcb - 
chain @ , dup chain ! 
swap >in ! 

dup bl word count rot place 
rpath prepend.apath drop ; 



91-04-25 brs 



\ this can be anything you like; a larger number 
\ won't use up any more memory. It's just a 
\ precaution against the links being messed up, 

FILE: filename. ext 



derive < n — ) 
create , 
does> @ + ; 



\ run-time: ( addr — addr+n) 
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comment : 

Define a word to convert the ctddress to the value offset by n. 
This is in case you want to access just a piece of a record, 
comment ; 



b/hcb derive >flink { adr — adr' ) \ convert to link address 

defer chained { adr — ) 

: do-chain ( — ) 
chain e dup 

if maxfiles 

do dup chained 

>flink: 6 dup 0= 
? leave 
loop 
then 

abort" Error in File chain" ; 

: ( , cha in) ( adr ~- ) 
cr dup >hndle 6 dup -1 > 
if 6 .r 

else drop , " — " 
then 

2 spaces 
count type ; 

: .chain < — ) 
cr cr chain @ 
if Handle Filename" 

['] (.chain) is chained 

do-chain 
else . " No Files Chained" 
then 
cr ; 



\ access the F-PC handle from the soon 

' @ alias >rhandle ( rcb — adr ) 

: grhandle ( rcb -- n ) 
>rhandle >hndle @ ; 

: . rname ( rcb — ) 
body> >name .id ; 



to-be-defined Record Control Block 

\ this points to the F-PC handle 
\ return the DOS handle 



\ type data name 



\ Open and Close files 

: file-err? ( hob f adr ct — ) rot \ display name of the DOS FILE 

if cr beep \ if there is an error, 

type . " in " count type 

abort 
else 3drop 
then ; 



?open-err < hcb £ — ) 
" Open error " file-err? ; 

?close-6rr ( hcb f — ) 
" Close error " file-err? ; 



?open < rcb — ) \ ensure that the file is open 

dup @rhandle 0< \ is no handle there? 

if >rhandle dup hopen ?open-err \ if so, open the file 
else drop \ otherwise, nevermind 

then ; 
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rclose { parentadr — ) 

dup hclose ?close-err ; 



\ close this handle 



: ?rerr ( rcb f — ) 
disk-error @ or 

if cr . " Disk/File error " disk-error ? rwerr ? 

.rname abort 
else drop 
then ; 

comment : 

?RERR will display the nams of the RECORD in the event of an error 
during disk access . This helps you to determine the offending calling 
process. Compare to FILE-ERR?, above, which just tells you if a problem 
occurred during opening or closing. 
coMnent ; 

: (roffset) ( rec# rcb — d ) 

2+ 2@ rot um* rot d4 ; 

defer roffset \ deferred in case I want to convert back to my 

\ old CP/M format for some reason. 

' (roffset) is roffset 

: locate { rec# rcb — ) 
tuck roffset rot 
dup ?open 

>rhandle movepo inter ; \ aim at the record 

: diskprep { dest rec# rcb — rcb ct dest ct handle-adr ) 
-rot pluck dup>r locate 
r@ 2+ a tuck 

r> >rhandle ; \ prepare all necessary data for disk i/o 



\ read/write a record 

defer extend? ' 3drop is extend? 

: rec-read ( dest rec# rcb — ) 
rwerr off 

3dup diskprep bread <> \ point and shoot 
if rwerr @ ?rerr extend? 
else 3drop drop 
then ; 

: rec-write ( source rec# rcb — ) 
diskprep hwrite <> ?rerr ? 



\ automatic (or semi) record extension 

b/buf 8* constant extent \ the minimum space taken by any file on ray disk 

: ?6xtend-err ( hcb f — ) 
" Append error " file-err? t 

\ dl = new eof 

: larger { rec# rcb — dl d2 f ) \ d2 = how much bigger the file should be 
<iup>r \ f - true if d2 > extent 

dup 2+ @ >r \ length 
roffset r> d+ 
2dup extent um/mod drop 
negate extent + 
d+ 

2dup r> >rhandle endfile d- \ calculate size increase needed 

2dup extent d> ; \ is it bigger than EXTENT ? 
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: (extend) { d hcb ~ ) 
dup>r -rot 

2 . d- r@ movepointer 

I ' ] false >body 

2 r> hwrite 2 <> ?extend-err 

variable monitor monitor on 



\ extend file by writing a zero at the 
\ last two bytes of the desired file end 



\ monitor on = all file extensions verified 
\ monitor off = no permission needed . 
\ monitor =1 — only get permission when 
\ you need to extend file > one EXTENT 



permission ( d hcb — ) 
savecursor savescr 
>attrib4 

20 5 75 10 boxsfill beep 

Is it okay to extend the file" bcr 
count type space d, ." bytes? (Y/N) ' 
key upc 'Y' <> bCr 
>norm 

abort" Program aborted" 
restscr restcursor 



: (extend?) ( dest rec# rcb — ) 
dup >rhandle >r 
2dup larger 2 Or 
monitor @ and 
if r@ permission 
else 2drop then 

r> (extend) diskprep hread <> ?rerr ; 
■ (extend?) is extend? 

\ Basic record access: 

\ This stuff is all pretty much straight out of the F83 block buffer system, 

4 constant #bufs 

#bufs 1+ 8* 2+ constant >rsize 

create >bufs ( — adr ) >rsize allot #bufs b/buf * allot 

: >end ( — adr ) 
>bufs >rsi2e 2- + ; 

: buf# ( n — adr ) 
8* >bufs + ; 

: >upd { — adr ) 
1 buf# 6 + ; 

>bufs >rsize + constant rfirst 

rfirst #bufs b/buf * + constant rlimit 

: latest? ( n rcb — rcb n fl [ a f fl ) 
disk-error off 
swap 2dup 1 buf# 2@ d= 
if 2drop 1 buf# 4 + g false true 
else false 
then ; 

: absent? ( n rcb — a f ) 

latest? ?exit false #bufs 1+ 2 
do drop 2dup i buf# 2Q d= 
if 2drop i leave 
else false 
then 
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loop ?aup 

if buf^ dup >bufs 8 cmove 

>r >bufs dup 8 + over r> swap - cmove> 

1 buf# 4 + @ false 

else >buf s 2 ! true 
then ; 

: discard < — J 
1 >upd ! ; 

: >prep ( adr — buffer rec# rcb ) \ use the buffer pointer to find the 
dup 1 + Q 

swap 2@ swap ; \ necessary addresses/values 

; missing ( — ) 
>end 2- @ 0< 
if >end 2- off 

>end 8 - >prep rec-write 

then 

>end 4 - @ >bufs 4 + ! 
1 >bufs 6 + ! 

>buf s dup 8 + #bufs 8* cinove> ; 

: (rbuf) < n rcb — adr ) 

absent? 

if missing 1 buf# 4 + @ then ; 

: rec> ( n rcb -- adr ) 
(rbuf) >upd @ 0> 
if 1 buf# dup >prep rec-read 

6 + off 
then ; 

: record: { offset, b/rec file — ) \ <name> [ run = ( n — adr ) 
create , , , 
does> rec> ; 

coirenent : 

When the record is created, the following fields are laid down: 

1. The parental file hcb, i.e. which file will store the data 

2. How many bytes to allot for each record (since it's random access) 

3. How far from the beginning of the file (in bytes) will these records 
Start? 

The Record Control Blocks & buffers keep track of what's going on; all you 
need do is call the name, read /write data to the address, and UPDATE as 
needed. Just like the F83 screen buffers, each updated record is 
automatically saved to disk when it's buffer is needed, 
comment ; 



: allow < offset rlen #recs — offset ' offset rlen ) 
>r 2dup r> * + -rot ; 

comment : 

ALLOW just makes things a little easier when you're defining records, 
It's purpose is to calculate the number of bytes to "allow" before 
starting the next record in the file. 

It leaves the next offset on the stack, ready to use for the next record. 

comment ; 



: errpty-buffers ( — ) 
rfirst rlimit over - erase 
>bufs #bufs 1+ 8* erase 
rfirst 1 buf# 
#bufs 
do dup on 
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4 + 2<3up ! 

swap b/buf + 

swap 4 + 
loop 
2drop ; 

en¥)ty-buffers 

: save-buffers ( — ) 
1 buf# #bufs 
do dup e 1+ 

if dup 6 + @ 0< 

if dup >prep rec-write 

dup 6 + off 
then 
8 + 
then 
loop drop ; 

: flush ( — ) 
save-buffers 
empty-buffers 
[ ' ] rclose is chained 
do- chain ; 

' flush is byefunc 

; update < — ) 
>upd on ; 

; update: ( — ) \ runtime: < ? — 
create ' , 

does> perform update ; 

update: dsk! ! 

update : dsk2 ! 2 ! 

update: dskc! c! 

update: +dsk incr 
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The Computer Journal 25 

FORML Conference 34 

Fort) Interest Group 40, 44 

Harvard Softwori<s 27 

Laboratc^ Microsystems .20 

Miller Microcomputer Services 25 

Silicon Composers 2 



comment : 

the DSK words are just versions of !, 21, c!, etc. which mark the record 
as being updated, 
comment ; 



<size> { — ct ) 
>body 2+ @ ; 

(it) ( n cfa ~ adr ct ) \ address & count of cfa's nth record 

dup (size) \ (cfa=word defined with RECORD:) 

>r execute r> ; 

it { n — adr ct ) \ return the address s ct of the Nth record 

does> @ (it) ; it \ initialize with: ' MYREC IS IT 

the ( NAME I n — adr ct ) \ return adr/ct of nth record 
state 

if tcompile] [ ' ] 

compile (it) 
else ' (it) then ,- immediate 

si2e> { NAME I — ct ) \ return the record size without executing it 
state e 

if rcon?)ile] [•] 

compile (sise) 
else ' (size) then ; immediate 

label; ( n ) \ run; { — adr ) \ define a named record § record* n 
create @> it , , 
does> 2@ execute ; 
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: labeling ( NAME | — ) \ the record to LABEL: ex: LABELING MYIffiC 
?exec 

' [•] it >is ! ; 



establish ( adr — ) hcreate abort" File creation problem" 



comment : 

Truncate (or create) a file. It's length is set to zero, 
use this to initialize (create) a new file on the disk. 
EXAMPLE: mystuff.Oat establish 
coimnent; 



path-len ( adr ct — n ) 
tuck 1- over + 
do i c@ '\' = 

? leave 

1- 

-1 +loop ; 

-path { handle — ) 

dup count 
2dup path-len 
?dup 

if 2dup - >r 
/string 
2 pick place 
count + r> erase 

else 3drop 
then ; 

del-paths ( -- ) 
flush 

[ • ] -path is chained 
do-chain ; 



Total control 
with LMIfOm~ 

PorProsramming Professionals: 

an expanding famity of compatible, high' 

performance, compf/ersfof/n/crocompulefs 



For Development: 

Interactive Forth-83 rnterpfBter/Compllers 
for MS-DOS, OS/2, and the 80386 

• 16-bit and 32-b«t implementations 

• Full screen editof and assembler 

• Uses standard operating systeni files 

• 500 page manual written In plain EngHsh 

• Support tor graphicSitloating point, native code generation 



For Applications: Forth-83 Metacompiler 

• Unique tabl&^lven muttHiass Rirth compiler 

• Compiles compact ROMable ordisk-tiased applic^ions 

• Excellent error tiartdling 

• Produces tieaderless code, compiles from intermediate states, 
and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8088, 68000, 6502, 8051. 8096. 
1802, 6303. 6809, 5aHC11,34010, V25, FTrX-2000 

• No license fee or royaity for compiled applioaUons 



mi 



LBlxwBtofyMlcmsy^anslnoofpomted 

Post Ottice 80X10430, Marina dai Ran CA9029S 
Phone Oedit CaidCMB^ feic(ST$90»»l2 



\ delete all paths from the chained F-PC handles 



: bufs ( -- ) \ Display which records are in the buffers 
1 buff #bufs 1+ 1 
DO CR I .2 SPACES 

DUP e TRUE - \ FFFF=empty buffer 

OVER 6 + @ 1 = OR \ waiting to be reread 
J p >i II 

ELSE DUP @ 4 .R SPACE 

dup 6 + e 

if ascii * \ if updated 

else bl then 
emit space 

dup 2 + @ dup . rname 
30 #out @ - spaces 
>rhandle count type 
THEN 8 + 
LOOP DROP CR ; 
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Sttuctyted Pattern 
Matching 



Ariel Scolnicov 
Mevasseret Zion, Israel 



Forth is not genially regarded as a aiiiable language for 
string processing. This is rather strange: Forth is, as we keep 
telling ourselves, an extensible language. The problem of 
string handlir^ has been addressed elsewhere. However, 
handling strings is not the whole tsaie. True string-process- 
ing languagf',<;, such as AWK and SNOBOI,, not only handle 
strings but also provide functions for siring matching. These 
allow us to match a stdng against ipaOem, a description of 
an entire class of strings. I have developed a set of words 
allowing the definition of patterns, alorig with the necessary 
routines 10 match patterns to stcir^ 

At first, I considered usmg regular expressions for my 
patterns. Their main advantage is that they can be compiled 
as a finite-sutc machine, which can ihcn be cxeajted very 
quickly. Unfortunately, regular expressions (and finite-siale 
macfainesi) are extremely limited- while general enough to 
desalbe, say, a floating-point number (as !+-l?(0-9l+C\.l0- 
9]+)?QEe]IO-9l+)?), they are hardly intelligible. Worse, regular 
expressions can't "count"; for instance, no regular expression 
exists which will match only strings with balanced braces. 
AWK, which uses regular expressions for its patterns, is 
limited in this respect.^ 

SNOBOL provides a ^r better pattern language. Unfortu- 
nately, the rest of SNOBOL is totally unstructured, with a goto 
as the only control structure, and a funny way of defining 
functions. What I really wanted was the string-pattern- 
matching features of SNOBOL What I ended up writing has 
all the functionality of SNOBOL's pattern matcher, with a 
uniquely ForLh-ish syntax. 

Patterns 

ihc pattern matcher is divided between two files: 
LOGK.;.,SL-y provides a very general "search driver," and 
S'l'iiMATCH Si'IQ provides words to describe pieces of the 
string. Building a pattern is very Forih-like: patterns are built 
into llie dictionary space, and every pattern is dcsci ibed by 
its address. Primitive pauerns are created without arguments; 
logical connectors connect patterns found on the stack. At 
the end of a definition, a single address left on the stack 
represents the entire paUem. 'Ihis address may be stored in 
a constant. 

1 EJ. il to do AWK jtet ce. it i s jiJSt me o; 910 impf ess ve .^rray ol t ext ■ h.'iiTcJ Ing tools 
in Itie Q/UNIX world. "Riero, string parsing is supfxxltxJ t>>- LEX and YAOC. 
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Primitivepattems 
m" ..." ( — pat ) 

Builds a pattern which matches the specified string. 

anyof " ..." < — pat ) 

Bui Ids a pattern which matches if the current character is in 
the specified string. 

m' ... anyof ... • 

Like the previous two, but can contain the double quote 
character. 

POS, RPOS ( n ~ pat ) 

Build patterns which succeed only if ilie current position is 
n characters from the start (end) of tlie string. 

HEAD, TAIL 

Patterns which match tlie beginning (end) of ^e string. 
Operators 

&S ( patl pat2 — pat3 ) 

15uilds a pattern which matches patl followed by pat2 
(concatenation). 

I I ( patl pat 2 — pat 3 ) 

Builds a pattern which tries to match patl . If the match or any 
succeeding match foils, goes back (backtracks) and ties to 
match pat2 (alternation). 

E& 

Starts a concatenation chain 

&] 

Closes a concatenation chain. AU patterns between [ & iuid & ] 
are linked with &&. [&abc&]is equivalettt to a b c && &fi. 

[| 

Starts an alternation chain. 

M 

closes an alternation chain. All patterns between [ j and j ) are 
I- 
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linked wtth ' ' 



OPT ( pat — pat? ) 

Builds a pattern which opUonally matches pat 

( pat — !pat ) 
Builds a pauem whkh matches anything but paL If su<xess- 
EjI, matdies ihe shortest substring which cannot be contin- 
ued to match pat (ne^gation). 

MANY ( patl — pat2 ) 

Matches several Q-K).s.sii)ly 0) copies ofprjil . 'llic number of 
topics matched is tht least needed lo enable the rest of the 
pattern to match. Since MANY matches the least number of 
copies, a pattern should be concatenated to it to prevent 
MANY matching the null string. 

MOST { patl — pat2 ) 

Like MANY, but matches the maximum number of copies 
possible. This can sometimes take a lot of time, so MMIY is 
generally preferable 



m" abc" m" def 
matches "abcdef 



A Few Exanpks 



m" abc" m" def" I 

mittdies "abc" or "def 



[fi m" Th" 

[| m" sir" m" at" m" ere" j] m" I" S] 
matches '"Iheir!", nTiatJ" or "'riiere!" 



anyof" 0123456789" many 

matclies " 123", "0123", elt,, bul ifunaneliored will match 
(the null string) 

[fi m" Good" m" bye" — SJ 

maldics "Good!" from "Goodly" or "Good " from "Good 
riddance", but fails to match "Goodbye" 

{& m" xy" many m" xyz" &] 
matches "xyz", "xyxyz", "xyxyxyz", etc. 

[fi m' xy' most m' xyz' fi] 
as above 

Note the behaviour of MANY in the last example: m" xy" 
most seems to avoid matching the final "xy", so as to enable 

m" xyz" 10 successfully match. This seemingly intelligent 
behaviour is charaaeristic of all the pattern- matching func- 
tions which involve a dioice C| i , MANY, MOST). What 
actually happens is a scardi between all the different 
possibilities, l liis is explained in furtlier detail in the next 
section. 

Hiree special pauerns are defined, which are sometimes 
useful: 

FAIL Faib to match, causes a badctrack. 
NULL Matches the null string, always succeeds. 
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Ttevcnts backtradcing behind its use. 



CUT "freezes" the current state of matching, and doesn't 
let subsequent backtracking change it. It is a powcrfijl tool 
for speeding up long matches, but should be used with 
extreme caution. 

Structuring Patterns 
As mentioned before, patterns can be stored as constants. 
Thi.'; allows us to struoure our patterns. For example, to 
match a scries of numbers, 

anyof" 01234567 99" constant digit 
digit digit most s& constant number 
number [fi m" " m" " many nmnber s] most 
constant number-list 

Here, a number Ls defined as at least one digit, and a 
number list as at least one number, with successive numbeis 
separatedby atleastonespace. Thissmicturemakespattems 

more readable. Insi ead of the unreadable regular expr^sion 
for a floating-point number, we write: 

[& nun^r m" ." number && opt 
anyof" Ee" nundber && opt &] 
constant fp-nmnber 

The pattern language described up to here is very useful, 

but it isn't really more powerful than regular expressions. In 
order to be able to count, we need recursion: llie ability to 
call the current pattern, or to forward reference a pattern 

In Forth, tliis is usually done by using DEFF.Red words or 
variables containing the execution address. At eompile time, 
code to fetch the value is laid down-, at execution time, the 
actual address is fetched. The pattern matcher ctxitains 
8CALL, \diich works like PERFORM 

eCALL ( V — pat) 

Returns a pattern which will call the pattern Stored in variable 
V. Always succeeds 

So we can write (using some of the previous definitions): 

variable list 

number list @call | | constant item 
item [S m" " m" " many item fij 
many constant items 
m" (" items m" )" list 1 

This matches lists, where a list may contain numbers or 

fuiilicr lists, but no null list is permitted. 

llie remaining three words don't perform any pattem- 
matching actions, but instead allow the user's words to be 
executed during the matching opcraUon, Obviously, these 
words cannot leave values on tlie stack, since tlie pattern 
matcher uses the stack. 

Instead, an auxfliarystackisptovided, accessed by >AUX 
and AUX>. The auxil iary stack is restored when backtracking, 
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Includes papers from '89 euroFORMI.. Pascal to Forth, 
extensible optimizer for compiliti^, 3D measurement with object- 
oriented Forth, CRC polynomials, F-PC, Harris C cross- 
ixMnpiter, modular approach to robotic control, RTX teoompiler 

^ OD-lioe maintmnniTf, nmdules, trainable neural nets. 

1990 FORML PROCKEDl\GS 320 - $4(^13/50 

Tonh m indusTr^^ e.>]Tii]ujiiicLiLii>!:s TTii^]iiioj, fiK()5 devctopmfint- 
3-key keyboard, documentation techniques, ubjcct- oriented 
programming, simplest Forth decompiler, error recovery, stack 
operations, process control eivent managem^t, control structure 
analysis, systems design coarse, group tbeoiy using Forth. 

BOOKS ABOUT FORTH 

ALL ABOUT FORTH, 3rd ed.. Jimc 1990, Glen B. Haydoa 201 - m/92/lOS 
Aimocated glossary of most Forth words in ctnnmoa iBue, 

i II e hid i n i; ! ■inrli ■ 7 y , 1 - orth- 83 , F-PQ MVP-B>rth. Iroplanaitation 
l'^::l1l[lk:^ >[i hii;h lovcl I'orth and/or S086/S8 assnnfaier. Uicfiil 
ciMnmcntaiy given for each enliy. 

THE COMPLETE FOBTH. Aim WwSkM 210 ■ $14/15/19 

A comMelienstve introduoion, incluiding problems wilh answers 
<Fort!i-79). 

cFORTH 1MPLE.MENTATION GLIDE, C,H. Ting 2 1 ."i - $250635 

ef^nh is the name of a Forth model designed to be portable to a 
large number of the newer, more powerful processors available 
now and becoming available in the near future, (w/disk) 

F83 SOURCE, Henry Lajien & Mi£:h.i;-I I Vrry 217 - $2001/30 

A complete listing of i-83, hicluding source and shadow screens. 
Indudes introduction on getting started. 

FORTH: A TEXT AND REFERENCE 2!9 - $3I/32K1 

M^ihljii G. Kcily & Niciiolas Spies 

A icxtboolc approach to Forth, wilh comfnebensive n^eicnces to 
MMS4K»ITH and the '79 «nd 'S3 Foidi MxodanU. 

THE FORTH COURSE, RichaidE.Haskd1 225 $25/26/35 

Hiis set of 1 1 teisons, called the ForthCourse,tsdesigncdtomake 
It easy for you to Icam Forth. The TnaLcri;il u;is developed over 
j^cverjl years of teaching Forth as part of a ^t^[uor/i^r:3Lli];stc CJiursc 
in design of embedded software computer systems at Oaklajid 
University in Rochester, Michigan, (w/disk) 



FORTH ENCYCLOPEDIA. Mitch Derick & Linda Balcer 
A detailed look at each fig-FoTlli instructioii. 



220-$3CV32W 



FOBTH NOTEBOOK, Dr. CH. Tmg 232 - S^PmS 

Good examples and applications. Great Icainiui; aid. poly- 
FORIH is the dialect used. Some conversion advice is included. 
Code ii well docomenied. 

FORTH NOTEBOOK II, Dr. C H. Ting 232a - $25/26/35 

Collceiion of research papers on various topics, sudi as image 
processing, parallel processing, and miscellaneous applications. 

F-PC USERS MANUAL {2nd cd., V3.5) 350- S2CV21/27 

Users miinu.'il m ihi: ^"Hibflc-domain Forth sy^lcm opTimlzed for 
IBM PC/XT/AT computers. A fat, fast system with matiy tools. 

F-PC TECHN IC AL REFERENCE MANUAL 351 - $30/32/40 

A must if you need to know the inner workings of F IT. 

INSIDE F-R3, Dr. C.II. Ting 235 - S25/26/J5 

Invahubie for those using F-83, 



LIBRARY OF FORTH ROUITNES ANDUTKJTIESi 

JamtKD.Tcny 237 - S23/25/35 

Cunkpreheirsivc collection of professional quality comptiter code 
for Forth; offers routines that can be put to use in almost any Forth 
application, including expert systemt and nalural-language 
interfaces. 

OBJECT ORlENTIiD FORTH, Kdc Fountain 242 - $28/29/34 

ImplcmenLiLoti of data struourcs. Fiist book to make object* 
oriented ptDgratmniftg avaitlble (0 osen of even very small blMne 
compatcTi. 

SEEINr; FORTH, Jack Woehr 243 - 525/26/35 

I would like to share a few observaiions on 1-oith and computer 
.science, ihat is the purpose of this monograph. It is offered in the 
hope that it wil I Iwoaden siightl y the stream s of Forth li terature ..." ■■■■■ 

SCIENTIFIC FORTH, Juii:in V. Noble 250 - $50/52/60 

Scientific Fonh csicnds the Forth kernel in the direction of ISIS^ 
SCicntifie prvolerti sol\ in^. [l LlloL^tia[e.^ ^^d^'ar^ced Potth BilSII 
programming lechniijues with non tnvial amlicaiions: 
compiaer t^ba, mtu of eqiuliOBS, liiDBrEHial equa tions, 
function minknizalion, functional representation of data (FFT, 
polynomials), linear equations and matrices, numerical 
mtcgration/Montc C^arlo methods, bigh-sjx:ed real and complex 
floating-point arithmetic. (Includes disk with programs and 
several ntililies) 

STACK COMPIITERS, THE NEW WAVE 244 - SS2/65/n 

Philip J. Koopman, Jr, (hardcover only) 

Presents an alternative to Con^plex Instruction Set CTompulcrs 
(CISC) luid Reduced Instrutlion Set roniputers (Rl.SC) by 
showing the strengths and weaknesses of stack machines (hard- 
cover only). 

STARTING FORTH f2nd ed.), l.eo Brodie 245 - S29/J0/38 

In this eJiii>>n of .V/ijr/inj' I'orih — the most popular and complete 
introduction to I'orih — syntax bas been expanded to include the 
Foiat-S3 Standard. 

WRITE Y01:R own PROnKAMMINf; LANG TAG 1- USING C++, 

Niinnaii Smith . , 2VU -.S 15/16/18 

'ihis book is about an applicatiotv language. More specifically, it 
is abouthowtowiileytxiroiwn custom a[^ication language, llie 
book contains the tools necessary to begin the process and a 
coniFlBte snn(^laig;uaceinqilai»itatioii. ICoess vliM laitgiuee!] 
bicludei disk wilh txxiqfete soun^ 

ACM-SIGFORTH 

The ACM SJGForth Nc\^■sleller is fHiblished quarterly by the 
Association of Cumptitiiig Madiii)er>-, Ine. SIGl'orth's locus is 
on the development and refinement of concepts, methods, and 

tedniqiKt needetl by E^Hth ptoIiHtioiiiU. 



Volume I Spring t9S9, Summer 1989, #3, #4 910 - S24/26/34 

F-PC. glossary utiiiiy, Humfonh, SKIForth '89 Workshop 
suminary (real-lime softwace engineering), Intel 80n8x. 
Mera£:ompi!er in cmForth, Forth exception handler, string case 
statement for UF/Fonh, 180(2 simulator, tutorial on multiple 
Ihteaded vocabularies. Stack firames, duals: an altemttive to 
viBuibtei, PbdtetFiuih. 

Volume 2 #1, #2, #3. #4 920 - $24M4 

ACM SlGl'orth Industry Survey, abstracts 1 990 Rochester con f., 
RTX-2000. BNF Parser, abstracts 1990 Rochester conf., F-PC 
Teach. TediEiBd Pi»th model, abttracis 1990 SlGForth conf. 
Target-mets-cross-: an engmeer*5 viewpoint, single-instruction 
computer. 

Volume 3, Ml Summer '91 908 - $6/7/9 

Co-routines and recursion for tree balancing, convenient number 
handling. 

Volume 3, «f Fall •91 909 - J6/7/9 

Postscript Itnie, What is Postscript?, Forth in Postscript, Review: 

PS-Tutor. 

1 989 SIGFoiih Workshop Froc««<llllts 931. $20/21/26 

Software oiginecring, truiltitasking, intcrrupt-driven systems, 
object-oriented Forth, error recoVery and control, v irUaal memo ry 
support, signal processing. 

]<n)0-91 Slt^Forth Workshop Proceedings 932 - S20/21/26 

Teaching computer algebra, stack-based hardware, rcconfig- 
urabic process^>rs, real-time operating systems, embedded 
control, marketing Forth, developmrat systems, in-flight 
monitoring, mulli-processors, neural nets, security control, user 
interface, algoiilhins. 



DISKS: Contributions from the Forth Community 

The "Conliibulions from the I 'orth {'ominunily" disk libnuy coiilaUis 
author-AiihmitTcd donationjL, gpnerally tnchiding sourt^* for a variety 
of OompLiicrs iltik faniiiiis. [iduis lilc in JctecinincJ by the author as 
public fitTEliain, ^hiiif^wjn:, or \s I5h Sk>i)ig ri:?llnt:li^m5. llns hl>far^ 
does noL contain "tor Sale" appiicalions. To submii your own corun- 
butuxa, send them to ihe FIG Publications Commillee. 



Prices: Iladi itcin bcloui' tu[tit-$ <jn one or more ttista, kidicaled m 
parentheses after t)ie item nu mber The price of youf ordu is per 

disk^ or $25/31 for any five disks. 



FLOATJlh.lil.K VI. 4 Roburt L. Snulh COOl - (1) 

Software floating-poiM for fig-, poly-, 79-Std., S3-Sld. 
Fonhs. iih>>n 32-bit. four mimsa functiam, square 
mot and log. IHM. 

Games ill i'lirlh C002-0) 
Misc o.inie'i, Cm.TE raA.l.ifc... Source. IBM 

A Forth Spreadsheet V2. Craig Lindley COOS - (1) 

This model spreadsheet first appealed k) Forth Dimemions 
VII, t-2. Those issues contsin docs & saoTix. IBM 

Automatic Struttu rtCharLsVS.Kimliacris C004 - CD 

Tools for analysis of large Forth programs » f irstj>TCscnted at 
FORML conference. FuTl source; docs im± in 1 9SS lOKML 
Proceedings. IBM 

A Simple inference Engine V4, Marliiv Traty COOS - (1) 

Based on inf. engiT^e ir^ Winston & Hom*s ix>ok on LISP^ 
takes you from p;n[eni v;iriables to conqtlete UniflcKtioa 
atgoriihm, with runiiin); c 1 1 nmenlary on Forth phi losophy & 
style. Incl. source. IBM 

Tbe Math B<hi V6, Nathaniel Grossman 0)06 - (1) 

Routines by foremost math author in Forth. F.xtcTtded double- 
precision arithmetic, complete 3 2- bit fixed-point math, & 
luto-rMging text. Incl. graphics. Utilities for rapid 
polynomial evatua^oo, contimied ftaoicat & Mam Carlo 
{acK>rizatjon. bid. source & docs. IBM 

AstroForlll & AstroOKO Dcnm-j, I K. .At^iimiiiian OOT- (1) 

A«traFoflh is the 83-Std. Russian version of Fonh. bicl. 
wtadow inieifiace, full-scieea editor, dyiMm ic assembler & 
a great demo. AttniOKO, an axtionavigauon system in 
Aitn^OfA, calculates skyposition of several objects from 
different earth positirais. Demos only. IBM 

Forth List Haiidler VI, Martin Tracy C008-(l) 
List primitives cxtetul Forth to provide a flexible, high- 
speed enviranmcnt for AI. Incl. EUSA and Winston & 
Horn's micro-LISP as examples. Incl. source &. docs. IBM 

8051 E^betUed Fwth, William Pzync COSO- (4) 

SftSi ROMnuble Fonh operating system. 80S6-IO-8051 
target compile. Inct. source. Docs are m the boolt Embedded 
Controller Forth for the 8051 Feimty. IBM 

F83V2.01, Mike Perry & Ilctiry l.ascn C100-(l> 
The newest version, ported to a variety of mat hines. Editor, 
assembler, dceompilcr, mctatonipikr. SourLe and shadow 
screens. MiUiual available sepataielv (iicii>s 217 & 235). 
Base for other 1-'S3 a[^ticaiioos- IBM, 83. 

F-PC V3.53 Tom Zimmer C200 - (5) 

A full Forth system with pull-down menus, sequential fijes, 
editor, forward assembler, metacompiler, floating point. 
Complete source and help files. Manual for V3.5 available 
separately <items 350 & 351). Base for other F-PC 
applications. Req. hard disk. IBM, S3. 

F-PC TEACH V3.S. Lessons 0-7 Jack Brown C201a - (2> 

Fonh classroom on disk. First seven lessons on learning 
Pbnh, fR>m Jack Brown of B.C Institute of Technology. 
IBM, F-PC. 

VP-PbmaT Fi.Mt for F-PC. VI. 01 Jack Brown C202- (I> 

Software floating-point engine behind VP- Planner 
waeadsheeL tM>U, (tempoiary-real) routuies with transcen- 
dental flMctioiu, number VO sapport, vectors to supmn 
numeiic <M-prooessor overlay & user NAN chedting. IBM, 
P-PC. 

F-PC Graphics V4.2f, Marie Smilev , C203a-(3) 

The latest veisions(rfnewgiapnicsioutines,includine CGA, 
liGA, and VGA tnpppoit, with numcnHis iinpnivkDeBts 

over Girlici versions created or Stqjpoited by Maik Smiley. 
IBM, F-PC 



Potketl'oith VI. 4, Chm Ikilmaii C300. (1) 

Sma][e:;to"Ttip!eie I-oith for ihi: Mjk:. A^:tt:sist.i all M;it functions, 
files, graphics, floating point, macros, create siandalone 
applic^ilions and DAs, leased on fig Suiriin^ Forlh. Incl. source 
and manual. MAC 

Ywkfts Forth V3.i5 C350 - (2) 

Complete object-oriented l-orth for the Mac, Object access ro all 
Mac fiuiciions, flics, graphics, iloaiiiig pv>t]it, macros, create 
sundalone aKilicationi. Incl. source, tutoriat, assemWer &. 
manual. MAC, System 7.01 Compatabte. 

JUSP V1,0|, Nick Didkovsky C40I - (1) 

LISP interpreter invoked frtMU Amiga Jl'onh. ITic nucltuis of the 
inteipretcr is the result of Martin Tracy ^s work. Fsii-ncinl Eoalltiw 
the LlSl' inierprelcr to link U) and execute Jl orth words it can 
communicate with JForlh^s ODC (Object -Development 
EnviiomMHO. AMIGA, S3. 

V] T-rark Serjeant C500 - (1) 

lean, iasi Furih with full source code. incl. I'ull-scrccn editor, 
assembler and rneiacompilcr. Up lo 15 files open ata tinte. ISM. 

KForth. Guy Kelly €600 -(3) 

A full Forth system with wintlows, mouse, drawing and modem 
packages. Incl. source & docs. IBM, 83. 

F<MrST. Jolm Redmond C700 - (1) 

Forth for the Atari ST. Incl. source & docs. Atari ST. 

Mops V2.1), Michael Hore C7I0-<1) 
dosecousinto Yerkes and Neon. Very fast, coiitpiles subroutine- 
threaded & native code. Objeci onenied. Uses F-P co-proctss<ir 
if present. Full access to Mactt>olbox& system. Suppon.s .Sysieni 
7 (e.g., Apple Evivns). Incl. assembler, docs & source. MAC 

BEL & A h u ltd aiicc , li ; ledy (1 re cn CSOO - (4 ) 

RBL public-don^ain. 32'bir l^>rth with extensive snt>pon of DOS, 
metiojlously opiiuii/j^d for execution speed. Abundance is a 
public-domain database language written in BBL. Req. hard disk. 
Ind. source & docs. IBM HD hard disk reequfred 




fig-FORTH ASSEMBLY LANGUAGE SOURCE 

Listings of fig-Forth for jpecific CPUs and madiines with compiler seconty od 

V^riable-lengUl names (sec Instaliauon Manual^ betow): - $15/16/18 



6502 
£800 

80SO 



513 - March Kl 

5 14 - September SO 

515 - May 79 
316 -June 80 
517-Sqptember?9 
SIS-Maidi81 



9900 
Apple U 

uiu-pc 

PDP-11 
VAX 



519 - NWh Kl 
521 - August SI 
SZ3-MuciiS4 
526 - Juraaiy 80 
S27-OclofaerS2 
528 - Sepcembcr S2 



f^.FORTH INSTALLATION MANUAL 501 - St5/16>/lS 

Glossary model editor — we recommend you purchase this 
manual when purchasing any of ibe soOTce code uslings above. 

SYSTEMS GUIDE TO fifi-FORTH 30S - $25/28/30 

How's and nby's of Ibe fig-Forth Model by Bill Ri^sdale, intenul 
stnictoic of fig-Forth syttem. 



MISCELLANEOUS 

T-SHIRT "May the Forth Be WilU You" 601 - $12/13/13 

(Specify tize: Stnall, Medhim, Large, Extra-Large on onler form) 
white d^i^ «n a (bufc Une )hlit. 



PaSTElt(Orf„ /MO am cover) 
PORTItS3 HANDY REFERENCE CARD 



6(G-$5/6/7 
683 -free 



MORE ON FORTH ENGINES 

Volume 10 January 1S»8<J 810 - S1SA6/18 

RTX lanrinls from 198S Rochester Forth Conference, object 
iMiemed cmFofth, lesser Bbith enginei. 

Volumcn J.ilv IQW 811-$13/16/18 

R 1 X iijppfcmeni Ki Fuuisiepi in an Empty VaUey, SC32, 32-bit 
l-Oilh engine, KVX ttilcrmpts utility. 

VolunicU Apnl 1990 812-515/16/18 
ShRoom Chip architecHwe Mid instroctlons, Neural Conputine 
Mo du I e N C M3 23 2, pigPMth, bitwiy rwiix »ort on 80286, 6801 (i, 

anJ RTX2000. 

Volume 13 Oaobci 1990 K13 - %lSn6/li 

PAU of the R1X2000 Mini-BEE. EBFonh. AZFonh, RTX- 
2101, 8086 8QS1 eFottb. 

VohimeM 814 -$15/16/18 

RTX Pockct-Scotx, cl-onh for muP20, ShBoom, eForth f(W CP/ 
M & 780, XMODEM for eForth. 

VuJume IS 815 - $15/16/18 

MiKne: New CAD Symn for Chip Desim, A nxtiait of (tkeP20; 
Rjbte: QSl Foith Piocessor, QS2, RI^3mg it all; P^ elH>rdi 
Software Sinitifaitorn)d>aeger. 



FORTH-aS STANDARD 305 - JlS/16/18 

Atitborilative description rfFbrth-83 Stan da id. For fefercnce. not 
insliuction. 

BIBLIOGRAPHY OF FORTH REFERENCES 340 - $ 18/1 9/25 

nnl ed., Janniy 1987) 

Over 1900 r^ciencei to Foitb aiticle* Aroogboui oon^wier 
literature. 



DR. DOBB'S JOURNAL 

Annual Forth istus, mdadM code for variotM R»th appHcatiom. 
SepL 1982 422 . $5/6/7 

Sept. 1983 423 - $5/6/7 

Sept. 1984 424 -$5/6/7 
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FORTH INTEREST GROUP 
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'MEMBERSHIP' 



Sub-Total 



10% Member DibSHiiini. Mcmhjcr* 



*Sak5 'I'iix {CA only) 



Mail Order Hajidliiig Fee 
•MembershiD in ihe Forih Interest Groups 



$3.00 



f~l New □ R«*iewri 



Tliit 



336iH2W for J'ortA Dimaaitms. 



MEMBERSHIP IN THE FORTH INTEREST GROUP 

The ForlhNerest Croup pG) i&a wld'Wi^.non-prcliL nnani6«f supported organisatiori vulhovcr K500 mBrnbei^aind40iiiaptsrs. >bur rrwr^r^ Kpiixludds a subscription to the bi-aunth I /m^azine 
For^ Dkmmions. FK3l i^otfws its rrmnben an on-ltiw dada b»B. a targa H^sction ot Forth Asralun and a4har sarvkw. Cost is (40 p«f yaar lor UpS-A. & Canada surlaoe; $46 Canada aJr mai^ 
aH othflF oounlrin %SZ ptt yvar* No uiH ttUt IhuhNriq fn^ n dnoounl on imiibanli^ 

VWlmyicwjobi, your fiinlkauawiUwr^Vi four to Ycxjrmini)«r«hi)MitllKyoutoa10% 
diSOOUnI on pifbttcatiOM from FIGl Dues are not deductible as a charit^ible DDnlra^ulion rorLI S incomfl Uih p(iipo«w.bu4 rnatrbedscftiCllsleasabiiiilriflB 



Forth Intoraet Group 
PX>, Box 2164 
O^dand. CA 04621 



PAYMENT MUST ACCOMPANY ALL ORDERS 



SlO-SWmTHCivdjt card 
ordan« curtomsf aafvioe. 
HourK MoihTFri^ 9-6 p. m. 



PRICES - AH orders must be prepaid. Prices are 
subfsct 10 change wfthc>ul no(ic«. Cr^i^ carcf order; 
wiEl b9 StiAE and Cijlled ai c■ul!(lr\^ pnc-ss- Ch^iol^^ must 
ba in U.S. dollars, drawn on a U.S. bank. A 910 
charge vtrill bo aiMod lor raUnnsd chodo^ 



POSTAGES hUHDUHQ 

Prices include shfjpiiig. Thv 
$3.00 Itjii^dkn^ 1«e h requfrsd 
with afl orders. 



" CAUFORftU SALES TAX BV OOUHTr 

7.5%: Sononu; 7.75%: Frasno^ Inporia^, 
Inyo. Madera^ Monterey^ Orange. RiverstdaH 
Sacramsnf o, San 8*nif d. Sanla Rafbara, San 
B«mardino, Sai^ Dto^ and Sar Joaquin; 
WHka for oul-of^tocfc books 8.29%: Atarmda. Contra Coala. Los Angeles 
(tftlvwloitn frMtodioa wttbv San llaloo, Sante Clva, and Santa Citix; 
iTHjch aoonarl^ >J%: San FrancBoo; 7.2g%: otfw counHosw 



SMPRhfOTIME 

Boolw in stock ar« shipped 
wWiin s«v«n disys of weipt of 
4-6 



allowiiig it to coolain state informatioa 
EXEC ( cfa — pat ) 

Returns a pattern wliich executes the given routine and 
matdies die null string. The EJCECcd routine should have no 
stadcactioa 

PUSH 

Apattem which pushes the current position in the string onto 
the auxiliary stack, and matdies the null string. 

SUBSTRING ( pat Cfa ~ pat ) 
Returns a pattern which performs cfa if pat matched. The 

stack action of the rouiiru' should be ( adr len — ) , where 
adr and Icn art; Uic address ai id length of the substring which 
matched the pattan. 

AUX> < — n ) 

Pops a value off the auxiliary stack. 

>AUX ( n — ) 

Pushes a value onto the auxiliary stack. 

To load the pattern matcher, type: 
fload logic fload strmatch 

Two words aie provided to actually perform the match: 

PMRTCH ( adr len pat — ?len flag ) 

AltcmpLs to match the suing adr, len to pat. If Lhc; match 
succeeds, returns the length of the match and true. If it fails, 
returns false. 

PSEARCH 

( adr len pat — false or adr len crue ) 
Attempts to match pat to a substring of adr, len. If a match 
is found, returns dieaddiess and Ieng& of die matdi and tnie. 
If no match is found, returns false. 

The pattern doesnt have to match the entire string. If you 
want to force the entire striing to be matched, use TAIL at the 

end of the panem. 



Figure One. 




Structure of 


m" abed" m" abc" I I m" de£" && 




aml-nocle 






oiwnode 'def 


■abed" 


"abc' 



FdrVi Dunensions 



As an ejcample of the power of string pattern matching, 
EVALSEQ contains an expression evahiator. It is prat tit ally a 
dir ect tra[isladon of the grammar defining arithmetic expres- 
sions. Type fload eval, and then eval 2+3*- (6-1) . 

Design 

The design stage for this project was imu.sualiy long. I 
wrote at lea.st two incorrect versions of the pattern match©" 
before I really understood pattern matching. Essentially, a 
pattern can be d^cribed as a tree: leaf nodes attempt to 
match characters in the string, or to perform snnie r>iher 
primitive operation; other nodes concatenate or alternate 
patterns. Compilation of a pattern into a tree is straightfor- 
ward; the problem is performing the pattern match. 

Executing leaf nodes is simple; check if the charaaers at 
the current position match the leaf nodes. Concatenation 
nodes involve matching first one sub-pattern and, if it 
succeeds, the next one. 

Tl le t riiky 1 >i t is all erm t ion : tlie fi rst .sub-pattern should be 
executed; if the match or any subsequent match fails, the 
second sub-pattern should be tried. What is needed is a way 
of storing the current state of tJie matching proc^, so that 
we'll be able to return to it. Part of the answer is to push the 
state onto a special backtrack stack. Whenever a match fails, 
pop a state off that stack and continue execution from there. 

What constitutes the "eminent slate"? Consider matching 
the pattern m" abed" m" abc" tl m" def" && 

to the string "abcdef (see Figure One for the pattern's 

structure). The first four charaaers arc matched, but then m" 
def" fails. Backuacking, we match the first tfiree characters. 
We now need to match the second half of the root & s node. 
Obviously, the ci.irrent po.'Sition in the string is part of the 
state. But the matcher also needs to know where lo continue 
after the substring is matched. 

The stumbling block here is that the current state has a 
variable size. Descending the pattern tree is a recursive 
process; ill is means wc have to store return information on 
a call stack. The ojrrent state is the cursor position, along with 
the entire call stack. 

Tbe matching algorithm follows easily: 

Br^oalX and backtrack stacks. 
Push pattern's root onto call stadc. 
WhUe call stack isn't empty: 
Pep node off call stack. 
Case of node: 
AND node: 

pu^ 2nd and 1st subtrees onto call stack, 
succeed. 
OR node: 

push 2nd subtree onto call stack, 
push current stale onto backtrack stack, 
rq^aoe 2nd subtree on call s^dc with 1^ subtree, 
succ^. 
leaf node 

match to string, 
succeed or fail accordingly, 

irfiined: 
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ITbacktrack stadc em^, entire match failed. EXIT. 
^ pep new stale off backtrack stack. 

Entire matdi succeeded EXIT. 

To make things dealer, spedsd leaf nodes (CUT, PAIL, 
NULL), and the operators — , MANY, and MOST weren't 
included in the algoriihm. — can be .simply expressed in 
terms of backtrack- and call-stack aaions: Push two special 
values onto the backtrack and call stacks. Attempt to match 
X. If X failed, the backtrack stack is popped. This indicates the 
negation succeeded, Ifx succeeded, the call stack is popped. 
Ihis indicates negation failed, so pop all entries on the 
backtrack stadc, induding the special value, and continue 
backtracking from there. 



Figure Two. 



Structure of 

X MANY and X MOST 



XMANY 



xMOST 



of-node 



NULL and-node 
X 



r 



t7 

or-node 
1 



and-node 
X 



NULL 



Figure Three. 



Block returned by 

m' Hello' 



adr 



+2 



+3 



+4 



+5 +6 



<m> 


5 1 'H' 


'e' 


' 1 ' 


' 1 ' 


'o' 







private data 



Figure Four. 



Block returned by 
m" abc" m" def" ! 



adr 



+2 



+4 



<i [> 



optl opt 2 



m" abc" 



m" def" 
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MJiNY is definfd in term.s ofl-TULL, | | , and &S. circular 
reference is used, since repetition is basically recursion, x 
MANY is equivalent to "ma^ nothing, or else x followed by 
X MANY," Every failure following x MANY causes backtrack- 
ing, which causes another repciiiion of x to be matched. The 
aiuctureof X MANY (and of X MOST) af^aears in Figure Two. 

Implementation 

Since a major part of the string-matching algorithm i.s the 
case Element on the various node types, it makes sense to 
use data direction to implement it. The first cdl (l6 bits) of 
ev'cry pattern tree node points to the excaJtion word for that 
routine. Thenodemay have private data following. The stack 
action of the ^ecutionmxd is ( private — flag ), 
where private pointstothestaitofpii^ted^andflagistnie 
if the match succeeded. 

For instance, the pattern 
m' Hello' returns adr, fill- 
ing dictionary memory above 
adr asshowninFigure Three. 
Here, <m> is the address of 
the execution routine for m ' . 
This is followed by the 
counted string to be matched 
The pattern m" abc" in" 
def" I j sets up memory as 
shown in Figure Four (the 
details of die two subpattems 
are suppressed for clarity), 
<j I > is the execution word 
for alternation. This word 
performs the actions of an 
OR node, pushing tlic cur- 
rent state onto the backtrack 
stack and proceeding with 
the first option. The addresses 
of the two options are stored 
in ^ two pI^^^tc data words. 

Most of the operators in- 
volved in pattern matching 
(S&, I j, NULL, FAIL, 
etc) are unrelated to die 
representation u.sed for 
strings. In fact, they can be 
used in any pattern-match- 
ing .situation — for iastance, 
matching lists. Hence, the 
pattern matcher is logically 
separable into two parts: a 
"logic engine" OXXilCSEQ) 
which provides Che indepen- 
dent operators and the main 
loop, and a 'string niatcher" 
CS'l'RMATCH, S l^g) which an- 
chors patterns to the string 
by actually mtatching 
substriiigs. 

The data-directed ap- 

I 
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proadi allows us lo define tiie main loop Qn LCKiJCSHQ) 
before we define the slring-matdiing nodesM" and ANYOF " 
(in STRMATCI I.SEQ). ll also leads lo cleaner code: the main 
loop (DRIVER in LOGlC.SliQ) is dcrincd by just 20 words, 
each operalor is defined by two words (ain ti me and compile 
time), and new operatois arc easily added. 

Conclusions 

Allliough I couldn't find any literature on ihc subject, I was 
able to implement advanced pattern matching by using 
siandarcl rortti techniques: stacks, functinnal decomposition, 
minimal syntax, and separation of compile time from njn 
lime. Two complex desigas led to two long, cumbersome, 
incorrect, and uncorroaable implementations. The final 
de';ign is elegant, uniform, and easy to implement. 

1 "5a ta directed programming is a very powerful technique 
wliich, in my opinion, isn't used enough. To use it, specify 
a uniform stuck action for a class of routines and use their 
CFA,s as type identifiers; then just EXECUTE your type 
identifier. The advantages: a CASE or EXEC : statement (and 
its overhead) is eliminated, and new data types can be 
installed trartsparently. DRIVER in LOGlC.SEQdoesnt "know" 
about any node types; it just knows thestadc aoioa DDP isn't 
a .substitute for OOP, hit it's still useful! 

KbUograpfar 

I was unable to find a great deal of literature on siring 
maldiing (u nlike itie related subjeci nf pa rsing, wliich is very 
well established). What I could find, and used, was: 

1. AlgorUhms ilnd ed.) by R. Sedgewick; Addison-Wcsley, 
1988, pp. 294-. Contains a chapter on matching regular 
expressions using finilc-.slate machines. 

2. Vanilla SNOBOL4 — Tuiorial and Reference Manual by 
MaricB. Emmer. Distributedalongwith Vanilla SNOBOL4by 
Catspaw, inc. 1987. This isa public-domain implemeniaiton 
of the SNOBOL language with complete doc-umeniaiion, Ihe 
documenution also mentions iheMacmlm^ementatUmof 
SNOBOL4hy Ralph Griswold (W. H. Freeman, 197^. I have 
been unable to find this book, but the 

description seems to indicate that it 
covers pattern matching. 

3. Any UNIX system has AWK, LEX, 
and Y:\CC, together with documenta- 
tion, 'iliese programs are also avail- 
able for the PC in various guises. AWK 
is a siring -processing language, LI:X is 
a lexical analyzer, and YACCis a parser 
generator used for writing compilers. 
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thun UOS and Windows. If embedded controllers. 
Forth, SlOO, CP/M or robotics mean anything to you, 
then you occd to know about The Computer Journal. 

Hardware projects with schematics, software 
articles with lull source code in every issue. And you 
ean try The Computer Journal without cost or risk! 
Call toll free today to start your trial subscriptioo and 
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[Code implementing the ideas in 
this article will appear in our next 
issue. —Ed.] 



CurrenUy doing Maiional Service. Ariel Scolnicov 
plans to start studying mattMmaMcs and corrvulsr 
science at Hebrew Unlver^ next autumn. H« 
onjoys Fofth's ability to cover new concepts under 
aunitorm syntax. Readers ean correspond with him 
at P O. Box 2747, MevttMOKt ZIon 90605, Israel. 
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China^s National 
Forth Examination 

Translated by C.H. Ting 
San Mateo, California 



!.asi year, the People's Republic of China adminiUercd its Jtrst — and, as far as vjc kriou:. //)( ' world's first — national test of 
Forth knmvledge and e:xpertise. In a huge coumry where positions in industry and academia are eamestfy sought by many 
candidates, andwfoeretheresuitsofformalexamfnationscan be decisivefactors shaping one's future, this test assumes great 

significance in the lives of Forth pro^rammejs there. We invite you to measure your mm Forth expertise by taking the same 
examination, nosewhowouldlikeiohaveibeiranswerscheckedcansendthemtoDr. Tingatl56- 1 4th Avenue, SanMateo, 
Cal^mia9^Q2. 



1991 Oii-na National Forth Programmer Exaniinatl^ 

Total Time; 180 Minutes, Total Score: IQO points. 

Ail probloms arc scored according to the Forth- 83 Standard. Assume the base to be decimal 
unless noted otherwise. 



Part One . Confute r Fundamentals (36 points) 

I, Calculations (Write down only the results.) (6 points) 

1. Convert hex 1991 to binary, {2 points) 

2. Convert hex ABE to decimal. (2 points) 

3. Convert hex BAD to octal. (2 points) 

II. Multiple Choices (26 points) 

1. Convert a decimal fraction 0.875 to 8 binary digits. (6 points) 

Its octal expression is; 

A. O.llOOOOO B. 1.1110000 C. 1.0100000 D. 0.0110000 
Its two's complement is: 

A. 1.0010000 B. 0.0100000 C. 1.1100000 D. 0.1100000 
Its one's complement is: 

A. 0.0011111 B. 1.0100000 C. 1.0001111 D. 0.0111111 

2. The logic expression A(l+B) is: (2 points) 

A. A B. I C. AB D. AB 

3. A oomputer has a memory capacity of 64KB. Its address registers must hsnre: (2 points) 
A. 15 digits B. 14 digits C. 16 digits D. 17 digits 

i. The register which sequences the execution of Forth words Is: (2 points) 

A. Work register W B. Program counter PC 

C. Interpreter pointer I D. Code field address CFA 

5- In a CPU, the register which sequences the execution of instructions is; (2 points) 

A. Accumulator B. Program counter 

C. Internal address register D. Instruction register 

6. A stack is a linear list. It la characterized by: (2 points) 
A, An end point B, A middle point 

C, Firat-in First-out D. First-in Last-o\jt 

7, The assembler producing object code for a different computer is called: (2 points) 
A. Macro assembler B. General asaeiribler 

C. Micro assendbler D. Cross assembler 
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HARVARD SOFTWORKS 

NUMBER ONE IN FORTH INNOVATION 

(618) 748-0890 P.O. Box 69, Springboro, OH 45066 



MEET THAT DEADLINE 1 ! I 

• Use subroutine libraries written for 
other languages! More effidentlyt 

• Combine raw power of extensible 

languages with convenience of 
carefully impU'iiifnted functions! 

• Faster than optimized C! 

• Compile 40,000 lines per minute! 
(10 Mhz 286) 

• Ibtally interactive, even while 
compiling! 

• Program at any level of abstTactiwi 
fttun machine code thru applicati<m 
specific language with equal ease 
and efficiency! 

• Alter routines without recompiling- 

• Source code for 2500 functions! 

• Data structures, control structures 
and interface protocols fhnn any 
other language! 

• Implement borrowed features, more 
efficiency than in the source! 

• An architecture that supports small 
programs or full megabyte ones 
with a single version! 

• No byzan tine syntax rsquiremantst 

• Outperform the best pn^rammefs 
stuck using ocmventianal lai^magest 
(But only until they also switch.) 

HS/FORTH with FOOPS - The only 
full multiple inheritance 
interactive object oriented 
language under MSDOS! 

Seeing is believing, OOL's really are 
incredible at simplifying important 
parte of any significant program. So 
naturally the thtsoreticians drive the 
idea into the ground tryin^i to bend all 
tasks to their noble mold. Add on 
OOL's provide a better solution, but 
only Forth allows the add on to blend 
in as an integral part of the language 
and only W/FORTR provides true 
multiple inheritance & membership. 

Lets define classes BODY, ARM, and 
ROBOT, with methods MOVE and 
RAISE. The ROBOT class inherits: 

INHERIT> BODY 

HAS> ARM BightAnn 

HAS> ARM LeftAtm 
If Simon, Alvin, and Theodore are 
robots we could control them with: 
Alvin 'h RightArm RAISE or: 
+5 -10 Simon MOVE or: 
+5 +20 POR-ALL ROBOT MOVE 
The painful OOL learning curve 
disappears when you don't have to 
force the world into a hierarchy. 



WAKE UP ! t ! 

Forth need not be a langU£^ that 
tempts programmers witb "great 
e^fecte^wm", tSien ftustrates fiiem 
with the need to reinvent esmple tools 
expected in any commeFcial lai^uage. 

HS/FOBTH Meets Tour Needel 

Don't Judge Forth by public domain 
products or ones fhim vendors 
primarily interested in consulting - 
(key prc£t from not providing needed 
tods! Public domain verdofis are 
cheap - if your time is worthless. 
Useful in learning Perth's basics, they 
fail to show its true potential. Not to 
mention being s-l-o-w. 

We don't shortchange y<m with 
promises. We provide implemented 
functions to help you complete your 
application quickly. And we ask you 
not to shortchange ua by trying to 
save a few bucks using inadequate 
pubhc domain or pirate versions. We 
worked hard coming up with the ideas 
that you now see sprouting up in other 
Forths. We wont throw in the towel, 
but the drmn on resources delays the 
introduction of even better tools that 
could otherwise be making your life 
easier now! Don't kid yourself, you are 
not just another drop in the bucket, 
your personal dedMon really does 
matter. In return, wrell provide you 
with the best tools money can buy. 

The only limit with Forth is your 
own Imaginatioiil 

You can't add extensibility to fossilized 
cmnpilers. You are at the merqy of 
that language's vendor. You can easily 
add features fktm other languagea to 
HS/PORTH, And using our automatic 
optimizer or learning a very little bit 
of assembly language makes your 
addition zip along as well as and of^;en 
better than in the parent language. 

Speaking of assembler language, 
learning it in a supportive Forth 
environment virtually eliminates the 
learning curve. People who failed 

previous attempts to use assembler 
language, often conquer it in a few 
hours using HS/FORTH. And that 
includes people with NO previous 
computer eiqterienoel 



HS/FORTH runs under MSDOS or 
PCOOS, cji- fru;iiKOM. Eudi k'vvl includes 
all features of ]ov^■c^ ones. I^n'el up^-ades: 
$25. plus price dilTercnce bevween levels, 
Source code is u\ ordinary AiiCll tt;xl files. 

HS/FORTH supports megabyte and larger 
programs &, data, and runs us fast as &4k 
limited Forths, even without automata 
op^nization -- which accelerates to near 
assembler language speed. Optimizer, 
assembler, and tools can lofid trarsiently. 
Reside sggmeiits, redefine wordsi, cUminaU; 
headers without recompilmg. Compile 79 
and 83 Standard phis F83 pmgnma. 

PERSONAL LEVEL $2S8. 
NEW Fast direct to video memoty text 

& scale d/cl i pped/w i n (]o w e d graphieH in bit 
blit windows, muno, t-ga, oga, vga, aU 
ellipsoids, splines, bczier curves, arcs, 
turtles; lightning fast pattern drawii^; 
even with irregular boundaries; powerful 
parsing, formatting, iile and device 1/0; 
DOS shells; interrupt handlers; 
call high level KoHh from interrupts; 
sii^e step trace, decompiler; music; 
compile 40,000 lines per minute, stacks; 
file search path a; format to strings, 
software lloating point, tr^, transcen- 
dental, 18 digit integer & scaled integer 
math; vars: A B * C compiles to 4 
words, dimension var airrays; 
automatic ofitiiidzar delivers t»at»%ttia 
code speed. 

PROFESSIONAL LEVEL $399. 

hardware fiosiin^; point - dista structures 
for all data types fram simple thiu 
complex 4D var arrays - u per a Lions 
complete thi-u complex hype I'bo lies; 
turnkey, sea); interactive dynamif tinker 
for foreign subroutine librarie.-;; round 
robin & interrupt dj'isun iiiLJi iLL^skL\rs; 
dynamic string manager; lik* blocks, 

sector mapped Uock^ xB6&7 assemblers. 

FEtODUCnONLEV^ <4»». 

Metacominler: DOSatOM/dired/iadired^ 
threaded t^fitmaa start at 2O0 bytes, 
Fbrth cores &om 2 kliytes; 
C data structures & atruct+ compiler, 
MetaGraphiCB 'I\iri>QWindow-C library, 
200 graphfc^window fiinctlona, PostScript 
style line attributes & fonts, viewports. 

ONLINE GLOSSARY $ 45. 

PROFESSIONAL and PRODUCTION 
LEVEL EXTENSIONS: 

FOOPS+ with multiple inheritance $79. 
TOOLS & TOYS DISK $ 79. 

286FORTH or 386FORTH 9299. 

16 Megabyte physical address space or 
gigabyte virtual for programs and dalu; 
DOS & BIOS fully and freely Jivnilable; 
32 bit address/operand range with 386, 
ROMULUS HS/KORTH frum KO.M $ »9. 

Shipping/system: US: $9. Canada: $21. 
foreign; $49. We accept MC, VISA, & AmEx 



8. An operating system iniproves the of a computer, (2 points) 

A. Speed B. Utility of resources 

C. Flexibility D. Coit(patlbJl jty 

9. In an operating system, which component Is responsible for thecontrol of process 
execution? ( 2 points) 

A, Main memory manager B. Mlcroproceasor manager 

C. Processor manager D. Page memory manager 

10. The component controlling the data in a system is: (2 points) 
A. Data manager B. Document manager 

C. Indexing syst^ D, Data storage system 

11. The most obvious difference between Forth and other coirputer languages Is; (2 points) 

A. It has the functions of an operating system. 

B. It Is an integrated programming environment. 

C. It has a dictionary with stack structure, 

D. It inproves the portability of programs. 

III. Hark a correct statement with "O", and an Incorrect one with "X". (4 points) 

A. A oonputer without external coaponents is a 'Bare Conputer'. 

B. Converting often used software operations to hardware can iijprove the effi- 
ciency of a computing system. 



Part Two. Forth Fundamentals (90 points) 

Fill the blanks (25 points) 

1. , , are the three internationally recognized 

Forth stjiid,'i::(;a . (3 points) 

2. The postfix exprc^i^ion of [ (A-B) *C] / (D+E) is 

A B - C E / (3 points) 

3. To reorder the stack (1234 — 2143), use: 

SWAP SWAP (2 points) 

4 . Coitpute the factorial of n { n — n ! ) , with n>l : 

: N! DDP ROT ?D0 I * -1 +IiCX)P ; (1 point) 

5. Do£ineY-to con(>ute y" ax^+bac+c, with the stack changes as 
shown : 

: y- ( X a b c -- y ) 

>R 2 PICK * >R DUP * ( ax*x ) 

R> R> + + ; (2 points) 

6. 3DUP ( nl n2 n3 — nl n2 n3 nl n2 n3 ) is equivalent to 
. Each blank can only hold one Forth word. (3 points) 

7. Convert a double Integer to its absolute: 
: DABS ( d — |d| ) 

DUP 0< IF "^HEN ; (1 point) 

8. : TEST 2. - IF 1 ELSE 2 THEN 

DDP . - IF 3 . ELSE 4 . THEN ; 
Typing TEST <cr> will display {1 point) 

9. DECIMAL 16 BASE 1 BASE g . <cr> will display: 
(I point) 



10. HEX : NUM DECIMAL 10 HEX 10 + . ; DECIMAL 

Type NUM <cr> will display (1 point) 

11. 32767 1+ . <cr> will display (1 point) 

12. -1 1234 CI 1234 C8 . <cr> will display (1 point) 

13. 2VARIABLE XY 3 5 XY 2! 

XY e . < cr> will display (1 point) 

14. 1 NOT . <cr> will display (1 point) 

15. HERE . <cr> shows 3000 
: TEST 500 CR ; 

HERE . <cr> will show <1 point) 

16. HESE . <cr> shows 3000 

1 , 2 C, HERE . will show (1 point) 

17. Following is the Incomplete definition of DO.- It compiles (DO) into the dictionary 
and leaves HERE and 3 on the stack. Conplete definition: 

: DO COMPILE (DO) HERE 3 ; (1 point) 

II. Multiple Choices (25 points) 

1 . The inventor of Forth is : 

A. English B. American C. Swiss D. Japanese 
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8. 

9, 

10. 

11. 

12. 

13. 

14. 



FoEth oEiglnated in: 

A. Chemical industry B. Automotive industry 

C. Astronomy 0. Light manufacturing 

The postfix expression of 15/(7~2) is 
A. 15 / {7-2> B. 15 7 / 2 - 

C. - 7 2 / 15 D. 

: TEST ( ABC . " DEF" ) ; 

Type TEST <cr> will display: 
A. ABC B. DEF C, ABCDEF 

In the stack comment ( n addr c — f ) 
n Is for an 

A. Integer B. Address C. Character 
f is for an 

A. Integer B. Address C. Character 
DECIMAL : TEST 16 HEX 10 * * ; 
Type TEST <cr> will display 



15. 
16. 

17. 

18, 
19. 

20. 
21. 

22. 
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D. nothing 

D. Logic flag 
D- Logic flag 



A. 16 10 



B. A 16 



C. A 10 



D. 10 A 



In Forth-83 Standard, the range of ud ia: 



A. 
C. 



to 65535 

to 4294967295 



B. -32768 to 32767 
D. -32768 to 65535 



In Forth-83 standard, the range of addr is: 
A. -32768 to 32767 B. -128 to 127 

C. -32768 to 65535 D. to 65535 

The result of 13 -7 MOD is: 
A. 5 B. -5 C. 1 

-1 DABS D. will produce: 
A. -1 B. 

-IS 5 / will produce: 
A. 4 B. 3 

2 NOT 3 + -1 AND will produce: 
A. -1 U. C. 

Reorder the st<.. k ( abed — deb 

A. ROT ROT ROT ROT 

B. SNAP 2SHAF SHAf 2SHAP 

C. SWAP 2SHAF StfAF DDP DROP 

D. 2SWAP SWAP 2SHAP SNAP 



C. 65536 



C. -4 



65535 



4 

a ) 



D. -3 



D. 1 



: TEST 


CR 3 1 DO 
LOOP CR LOOP ; 


6 4 


DO JO 


.RIO 


.R 5 SPACES 


Typing 


TEST <Gr> 


will display: 






A. 14 


15 






B. 41 


51 




24 


25 






42 


52 




C. 14 


15 


16 




D. 41 


51 


61 


24 


25 


26 




42 


52 


62 


34 


35 


36 




43 


53 


63 


: TEST 


1 5 DO 


I + 


-2 


+LOOP . ; 


TEST will produce 


A. 15 


B. 14 






C. 8 




D. 9 


: TEST 


1000 = IF 


KEr 


DROP EXIT 







ELSE REX THEN ; 
The total length of this word In the dictionary is: 
A. 33 bytes B. 29 bytes C. 31 bytes D. 35 bytes 

VARIABLE XX 4 ALLOT VARIABLE YY O , 
■ YY >NAME ' XX >NAME - . <cr> will display: 
A. B. 9 C. 13 D. 11 

CR 3 SPACES 32 EMIT OUT 8 -R OUT 6 .R <cr> will display: 
A. 43 B. 34 C. 45 0. 54 

HERE . <cr> shows 5000 

HEX 10 ALLOT DECIMAL HERE . <cr> will display: 

A, 5016 B. 5000 C. 5010 D. 5020 

To compile an inmediaLe word irjto a colon doflnition, xisn: 

A. COMPILE B. (COMPILE] C. ] D. TMMF.iJIATE 

To create a header for XXX and point DP to the beginning of its parameter field, use: 
A. BOIU}S> XKX B. CREATE XXX 

C. : YYY CREATE XXX ; D. : XXX ; 

Define the following word: 
: XXX CREATE , DOES> 8 ; 
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Execute 176 XXX YYY 

A. A new word YYY is compiled to dictionary. Stack has 176. 

B. YYY is compiled to dictionary. 176 is put in its parameter field. 

C. YYY Is compiled to dictionary, 176 is put in its parameter field, and stack has the 
pazaineter field address . 

D. No new woxd is compiled to the dictionary. 

23. To coingpile €4*3 as a literal in a colon definition, use 
A. LITERAL 64 3 * B. [LITERAL] 192 

C. [ 64 3 * J LITERAL D. 64 3 * 

III, Determine Errors (20 points) 

1. Define two vocabularies to be used in the subsequent definitions: (10 points) 
VOCABUIARY XX VOCABUIARY YY PEFIHITIQMS 

ABC 
; ABC ; XX DEFIKITIOHS : DEF ; 

D E F 

: GHT YY DEF XX-fiEg 1. 

G H I J 
There are errors, identified by . 

2. Define a variable BASEl and us© it as the base to display a number n. (10 points) 
: TEST ( n — ) BM£^ VARIABLE BASEl 

A B C 

EaSEl_a BiSE_L SL. <*#«**»> 

D E F G 

TYPR ^ BASE '. : 

HI 

There are errors, identified by . 



IV. Stack Analysis ( 20 points) 

Analyze the following program and trace the stack 
comment parentheses. 
OECIHAL 

; #IH ( — n , push the number entered on keyboard on the stack) 
BEGIN KEY ( n c 

DUP 13 = ( n c £ 

IF DROP ( 1 

EXIT 

THEN 

DUP 8 = { 2 

IF EMIT 32 EMIT 8 EMIT 



Use the standard stack notation in the 



10 / 
ELSE DUP 
48 < 

OVER 
57 > 

OR 

IF DROP 7 EMIT9 

ELSE DOB EMIT 

48 - 

SHAP 10 

* + 

THEN 

THEN 



10 



AGAIN 



Fart Three. Fxogcam Design (36 points) 

I. Fill in Forth Words {22 points) 

In the following program, fill in the appropriate Forth words in the blank fields . WORDS is 
used to inspect the contents of the current vocabulary. 
: WORDS HEX CR CR 

{ find the name field address of the last words in the current vocabulary) 



?DUP IF BEGIN DUP DUP 
<###♦##> 

TYPE IF ( display a blank character) 

( show the name of a word ) 

ELSE ( display "Null" ) DROP 
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THEN OUT @ 30 > 

IF ( start a new linej 

ELSE 14 OUT e OVER MOD - 

( display that many blank characters) 

THEN 

( from name field find the name field address of the next word} 
DUP - 

( is there any koyboard activity? ) 
DUP IF ( wait for the key ) 

( is any one of the two flags true? ) 

ELSE ( display "Empty vocabulary") 

THEN ; 

II. Program Design (14 points) 

The equations to draw a circle are: 

X- xO + rCOSa and Y- yO + rStSa 

whers (xO,yO) are the center coordinates , r Is the radius, and a is an angle. Assume that we 
have a word LINE ( xi yi y.i y2 color — } which draws a line from (xl,yl) to (x2,y2) . Color is the 
background color and color 1 is white. 

Write a program to draw circles. First compute onn point on thn circle (xl,yl) as the starting 
point. Then compute (x2,y2) and draw a line between these two points. Make (x2,y2) the {xl,yl) of 
the next segment. Compute the next point and draw the next segment. Increment a to compute the 
next point. Increase a from to 360 degrees and draw the complete circle, 

SIN ( deg — slne*10000} and COS { deg — ooslne*10000) are predefined words which convert 
angles to sines and cosines multiplied by 10000 so that they are represented by integers . Avoid integer 
overflows in the program. (Note; the coordinates of the end point can be saved as double inte- 
gers to initialize the starting coordinates of the next segment) . 

Define the following words: 

X= ( xO r a — X ) 

Y= ( yO r a — y > 

XY= ( xO yO r a — x y ) 

CIRCLE ( xO yO r — ) 

Define each word separately and write a conplete circle drawing program. 

Part Foux. Engllsli (18 points) 

I . Select the most appropriate words in the list to fill in the blank spaces in the next three 

paragraphs, (9 points) 

1. Forth is . Bccaus'.r- y-Tj rar, add to the language, you can tailor it 

to your own needs. Since almost everything in Forth is v.rit'-e;i in rorth — the text editor, assembler, 
etc. — you can access and alter all of it. 

2. Forth Is - Forth runs much faster than many other high-level 

languages. Because the Interpretation scheme is so elegant. Interpreter overhead is minimal. 
Furthermore, Forth includes a built-in assembler for speed-critical routines. As a result. Forth 
can run almost as fast as machine code itself. 

3. Forth is . Only a small nucleus of code needs to be rewritten to 

move the entire language to a new conputer . Forth has been implemented on almost every computer developed 
to date. 

Answers to be selected: 

A. fast B. slow C, compact D, powerful 

B. extensible F. transportable G. interactive H. structured 

I , restrictive 

II. Translate the following paragraphs into Chinese (d points) 

1. Forth Is a language, an operating system, a set of tools, and a philosophy. It is an 
ideal means for thinking because it corresponds to the way our minds work. <Thinking Forth> is thinking 
simple, thinking elegant, thinking flexible. It is not restrictive, not conpllcated, nor over-general . 
<Thlnklng Forth> synthesizes the Forth approach with many principles taught 1^ modern conputer science. 
(3 points) 

2. Business, Indvsstry, and educatio.n are discovering that Forth is an especially effective 
language for producing compact, efficient applications for real-time, real-world tasks, 

<Tbinking Forth> combines the philosophy behind Forth with thetraditional , disciplined 
approaches to software development — to give you a basis for writing more readable, easler-to-write, 
and easier-to-malntain software applications in any language, (3 points} 

3. Forth Is like the Tao: it is a way, and is realized when followed. Its fragility Is 
its strength. Its sinplicity its direction. 



DROP THEN 

UNTIL 
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A Forum for Exploring Forth Issues and Pronrvting For^ 



PromotJngForth 
and Other Hlg^-Tech Stuff 

To prepare a press "backgrounder" for Forth, I followed 
some simple procedural steps. Similar steps may help you to 
promote other high-tech products or services. As part of this 
exploration, I will be sharing backgrounder excerpts ex- 
plaining various advantages of Forth, 

To help generate promotional copy for Forth, my first step 
was to develop a brief list of Forth's advantages. Next, I 
investigated which advance could best aunmarize what 
I'orth is all abouL 

I Jic focus then became a few Forth advantages around 
which I tried to oeate stories with promodonal messis/^. 
After several stories were compiled, the stories were tied 
together as much as pos=.ihlL 

Top on my list of advances was horth's exiensibilily and 
scalability. While the ability to extend a language is fre- 
quently mentioned, the ability to scale a language is rarely 
touted. 

A term similar to scalable is cpm. Openness also charac- 
leri/^cs Forth well. To suit the length restrictions of an 
advertisement, the following short stoty was used: 



To use this message in 
advertising, it must be 
made simpler. 



As an tpen language, Forth let,"; programmers build new 
controJ-flow structures and other rompiler-orteltted 
extensions that closed languages do riot. 

Another advantage I noted was Forth's usefulnes.s as a 
meta language suitable for crating application-specific lan- 
guages. 

But Forth's linguistic flexibility is not characterized by 
merely describing Forth as scalable instead of extensible — 
nor by describing Forth as a meta-Ianguage. Despite how 
deeply Forth programmers appreciate this mes.sage, it can't 
be deciphered by those who have never used Forth, 

Perlraps the difficulty of this Forth concept is due to the 
terminology required for its expression. This prompted me 



to take a firesh approach to the telling of this Forth story by 
avoidir^ terms such as grammar. Here is how it turned out: 

In mast languages, the declaration of data ircm.s or routine.s 
helps enrich the variety of useful expressions that can be 
programmed, 'ihc appeal of most languages arises due to this 
one bait — extensibitiLy in the domain of expressions. It allows 
one or more prc^prammers to buQd layered, modular applies - 
ticMis. 

Forth has improved upon the best trait cf other languages— 
widening expressions until ihey engvjlffhe Forth l.iii>-;ii.ij>e a.s 
a wliole: All the elements of the Forth language correspond to 
expression con^iucts, with even fewer syntax rules than is 
customary for exptes^yos. 

No iireverstble Pondi granumr or syntax is needed k> eaosuie 
that programmers specify routine or vari^les only in places 
^ere they are permlwihle. Fonh's lack of type-checking 
contributes to this freedom. 

By eliminating the need to ne.st express ion.s within pareni h<!- 
ses, I'otth's postfix notation avoids .still otfier (.syntax) con- 
straints — those involvingcorrecdy paired, andconecUy placed, 
parentheses within expres^ons. When expressions are tK>n- 
stop as they arc in Forth, the phrases In an expression'' and 
'heslctd expression" lose all their meaning. 

Other lai^ages continue to lintit extensibility to the 
domain of expressions. Furthermore, the permissible 
components of expressions are also limited — just try 
pladr^g an IF in the expression portion of a PRINT 
statement in BASIC. 

Due to its abandonment of left -to-right evaluation, 
algebraic notation matklates your use of correctly paired 
parentheses as necessary to ^>ecify how the result of an 
inner ezpresskxi should be passed to an outer expression. 
The order of evaluaiic«i proceeds in an inside-out fashion. 
For reasons unkrvown lo most Forth programmers, this 
notational ,scqii(-ncc i.s considered e.'Lsicr and more read<lble. 
(Nevertheless, microprocessois require the re-ordering of 
equhnCent machine code to reflect its real execution order.) 

Terms such as grammar and semantics lead to more 
conventional ways of expressing Forth's flexibility, but they 
also raise the discussion to a higher technical level: 

Unlike most languages, Forth provides a measure oflii^Ls- 
tic self-determination to its users. Normally, components of 
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languages art; under ilic slricl control of compiler v( tiJor% 
Through ilssupjxjrt of arbitrary application fj . miliar?, l oilh 
lets die programmtT determine the gratnmar and semantics 
suited K> a given project. Accordingly, the language for an 
apfidicatioa can truly be fitted to the application. This flexibility 
has been designed into Forth. 

The switch statement of the C programming language is 
useful for programming in terms of state niachines. While 
users of conventional languages other than C have to wait 
for ibc various compiler vendors to adopt this new language 
constnia. Pooh prcgramniers have remained free to add 
components suctt as a switcb to virtually cv&y 
in^cfnentation of Fmth that has ever been created. 



Because oFtes lei^th and compicKicy, this pamcubi itnth 
message remains unwieldy. To use it in an adverliscmenl, it 
must be made simpler still. 

Let's continue lo refine ihi.s message regarding i'otih'.s 
llexlbility. i'erliaps you can share some of your own recipes 
for the promotion of Forth. Together, let's make Forth a 
pooriy k^t secret one day. — Miks Elola 



Forth interest Group tlp<Iate 

Ai a recent planning meeting, iJie FIG Board of Directors 
along with a few volunteers undertook the task of evaluating 
where it needs to focus its efforts. Besides a mission 
sta lenient, the planners brain.qormed to produce a li.st of 
about 40 possible FIG activities that could help fulfill FIG's 
mission. Evaluating those activities took die form of rating 
how much each of these ariivities supported each of the 
objectives in the mission statement. 

The planners also studied the organizational .structure ol 
FIG, producing an "org" chart to help formalize each of the 
roles being perform^ by various FIG supporters. At the 
same time, we identified the need lo fill .several vacated, or 
under-^phasized tcAss in the organization. 

Since dien, FIG president John HaU has made several 
important appointments: John Rible is the FIG Chapter 
(Coordinator; Nick Solnisetl isUie I'cki cation Coordinator-, and 
Mike Elola is die Publicity Director. John may appoint 
another volunteer as merchandiser of the HG mail-order 
business. 

Nick, John, and Mike are charged with helping educate 
Forth programmers, supporting chapters, and promoting 
Forth and FIG, respectively. 

The use of "task champions" is making 1-IG more 
responsive to new ideas, such as the column you are reading 
now. If you wish to help in any of the task areas outlined, 
send us a brief descripdon of your interests, listing any 
proiessional skills you have so we can build a talent- porjl 
database. HieFIG office will forward any specific comments 
or suggestions you make to the appropriate task champion. 



April 1992 

Orion Instruments announced the PC-based 8800 

emulator/analyzer. It has Uie speed needed lo make it 
a real-lime, zero wail-siaic emulation of Moiorola's 
68000 and ^302 micropiDce^is running at well over 
40 MHz. (Suppon for 80G196, f^332, and 6H!1C16 is 
planned.) Besides allowing source- level debugging, ilie 
8800 can use the host PCs 386 protected mode to run 
oihcr programs, such as editors and compilers. By 
placing such programs in die "User" menu, all such 
programs can become an integrated part of the 8800 
operating environmenL 

Also announced as an option for the 8800 is Qip- 
On'^'^ F,mulaiion, It ensures that timing is unafEeaed by 
I he emulator. 

Aprit 1992 

Vesta Technology announced the Vesta SDC332, a 
low-cost, high-speed, low- power, single-board com- 
puter based on the Motorola MC68332 microcontroller. 
A single imit may be obtained /ree-wi\h the purchase of 
an SDSI debugger, or with the purchase of 
chipI-()RllI332™ Crtjm Vesta Technology, (Forth, Inc. is 
responsible for chipFOi<TH332 and trademarks that 
name.) 

Several add-on products are available, such as one 
lo augment the SBC332 with serial I/O and A/'D as well 
as D/A conversion (die MFP332 Muld-Function Periph- 
craD- 

Also available now in a version for die SBC332 is the 
Vesta Standard Edidon, a 32-bit subroutine-threaded 
Forth. 

Companies Mentioned 

Orion Instmments 
180 independence Dr. 
Menio Park, C;a!ifnrnia 94025 
Fax; 415-327-9881 
Phone 415-327-8800 

Vesta Technologies 

7100 West 44di Ave., Suite 101 

Wheat Ridge, Colorado 80033 

Fax; 303-422-9800 

Phone: 303^22^8088 
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CALL FOR PAPERS 

for Ihe fouitecnth annual 

FORML CONFERENCE 



Hie original technical conference 
for professional Forth programmers, managers, vendors, and users. 

Followuig Thanksgiving 
November 27 - November 29, 1992 

AsilomarCotifeiience Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California U.S.A. 

Theme: Image display, capture, processing, and analysis 

Papers are invited that address rclcvaiU issues in the development and use of Forth in image 
display, capture, processing, and analysis. Additionally, papers describing successful Forth 
project case histories ate of particular interest. F^ipeis ai)out other Forth topics are also 
welcome. 

Mao abstract(s) of approximately 100 words by September 1, 1992 to FORML, P.O. Box 
2154, Oakland CA 94621. 

Completed papers are due November 1 , 1 992. 

Registration information may be obtained by telephone request to the Forth Interest Group 
(51 0) 893-6784 or by writing to FORML, P.O. Box 2154, Oakland, CA 94621. 

The Asilomar Conference Center combines excellent meeting and comfortable living 

accommodations with secluded forests on a Pacific Ocean beach. Registration includes use of 
conference facilities, deluxe rooms, all meals, and nightly wine and cheese parties. 

'Iliis conference is sponsored by FORML, an activity of the Forth Interest Group. 
Infomiation about membership in the Forth Intere.st Group may be obtained from the Forth 
hitercst Group, RO. Box 2154, Oakland, C A 94621, telephone (510) 893-6784. 
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Gary Smith 

Littb Flock, Alfonso 

There vAU be very little preamble in this edition oj 'on-Hne' 
notes. Ttfecoraentsofthe messages speakjbrthemsekfes. The 
Jirstgmtptuaspt^edJromCategnfy 1, Topic 6, 'Real-Ume 
Conferences, " and discusses our disheartening decision to 
terminate the Ihursday h'iggy Bar. 'Ihe second is captured 
from Category 10, Topic 24. "ANSTC Magnet for Merpreier" 
andfe^UumalitJ^&cchangeon GEnie, andfiomtbmughoul 
FonhNet, Tegantif^ab3potbeticalt4seqflocai't4servaTiables. 

Topic 6; BeatHmeConfereiicts 
Real-Time I 'onb Conferencing on this RoundTable 
Tte Thursday nigta I'iggy I^ar will cease, esroept for the 
monthly giicst appearance after ihc I'cbruary 6th session. 
Aiiendancc has fallen beyond acceptable levels for more tlian a 
montli. If you wish do preserve this on-line chapter meeting and 
if you have any opinions chis is the time to share iheno. 

— Gary Smith 

From: Dennis RufTer 

Well, we had our final Thursday night Figgy Rar list Thursday 
njghl, andl must say, it doesn'ilook likeanyofyou will miss them. 
No one but us sy.sopis showed up for tfie final tribute In feet, no 
one has even bfithered to cntntnenl , one way or ihe other, alwut 
this lass. This is disappointing Lo those of us who have gone out 
of our way to make tliese happen ftx you. We started tliese 
Thursday nig^ii get-togethers foryou to diare your thoughtsabout 
I brth projects you are workit^ on and to hear what othas are 
doing, Tlie inieution was to pHJvidc an on-line HG diaptcr 
meeting for those of you who do nol often get the oppoitunity 
to talk with other Fcxth progranuneis^ 

We started witli a good core group of [x^)pie who would 
show up fruqueruly. TdlikctotakethLs op{X>rtunity totfiankth«n 
for \hv\( lime and enthu,sia.srn. They m3<ic these conferences 
enjoyable a n<l heljxid us keep them going for the past two years 
Urifoftunatdy, evayone's priorities change over time, and this 
core ^txjp dwindled down to noUiing, Most recently, Gary has 
been frequently sitting in the CTC compl«ely abne This is moa 
didieartening for him, after he has gone to the (sometimes 
©ttraordinary) effort to be there, and few Of anyone) even shows 
upL Now, after much discussion, there just is no desire (on any of 
our parte) to continue makjr^ the effort any mem 

This does not mean they will not comeback, but you the user 
must show us tliat you wajit us to do it We are here fur ytxir 
benefit, but if you do not choose to take advantage ofsometliing 



we ate doing, we will ^ift our eJToits to something else that ycxi 
might find useful. Howerver, this means you must tell us whatyou 
want Iftfietiinew^notright,tdlusso. Ifyoj'dlikeustouse 
the ori-line RTC rooms in some other ways, let us krKw what you 

wanLlfsomeoneouttlierewouldliketovuIuiitccrttjhdpusoul, 
please stcf > foward. \>,'c need ideas, and cntliusiiLstic users and 
volunteers. Flcasij ctjnLibute wherever you can Otlierv^'isc, ;is 
has liappcned with tlie Ihuisday night Piggy Bars, ttie benefits 
will just disappear. 

litis brings us to (he guest confisrcncea Sp^keis Gary lined 
up rocaitly include: 

2/20 — Paul Tliomas of SunMiao()>'?!lcms and co-author with 
prior guest Gary F&eAadic^RtnhTbolsandAppHcations. Paul's 
topic: "Using CREATE ... DCGS>." 

3 '19— Ron Braithwaiic, independent consultanL Hon'stOfSC 
"Prr>ft?isinnal Impaa of dpANS FcHth." 

4/l6 — len ZeJtd. Len's lOfMC Is die Forth Community 
Missii^ the Boat.'" 

However, attendance at ttiese conference have also been 
disa[>[X)inling ;tnd \'eiy embarrassing for u.s and tlie guest 
sfx;;iker. Not only has Gary spent hours on tlie ])hone lining up 
these guests, but the guests tiicmscJves have taken ii[ne outof 
tiieir busy schedules to talk to us. Then, when no one shows up, 
everyone goes away disappointed Obviously, under those 
conditiotis, guests rarely want to comeback again, and finding 
new guests becomes harder. Again, the enthusia-sm is dwindling 
and it is question able how mudi longer we will continue to have 
them. There is, on thecxher hand, still an c^^ponunity foryou to 
show us how mudi these are worth to you. You only teve to 
.show up and join thedlsotssion toshowusyou care Ifthc^senexi 
tfuee go well, we will schedule more. Otherwise, tliese too will 
become a thitig of the past 

ANS Vonh Interpreter 

AhS Rmh SUirukirdforbu&inmr.Magrie^ Dean^fndmen 

iTOm: Sabtiagli 

Subject; : Pt+ ( ptl \ pt2 ~ pt3 ) 
Schmidlg@iccgcc, decneLab.com writes: 
"Hadd G. SaWia;^ writes; 

'"Let's consider ttie following problem: a fx)int is represented 
on the stack as integers x v x I wish to tic:fine " ^ " 
""Nose that a point as delinetl here ctJiisisLs of thrc^c coordi- 
nates. Again, note how the problem has chariged to points 
with two coordinatesJ' 

"Knally, Hadil G. Sabbagh writes: 

"*. .where inl, in2, ... are input aigunieni^ 11, 12 are 

kxalsi and outl, out2, ... are output arguments. Thus, we 
have 

: pt+ { xl yl x2 y2 — > x3 y3 ) 
xl x2 + -> x3 
yl y2 + -> y3 ; 

"Now the original poster is convinced that he is solving a 
difiaent prubleiai" 

Just going with the flow, Greg. Here is my original protJem 

(and solution, using locals). 

: pt+ { yl zl x2 y2 z2 — ^> x3 y3 z3 } 

xl y.2 f -> y?: 
yl y2 + -> y3 
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zl z2 + -> z3 ; 

Sec my previous posting on the locals syntax. 

— Hadil 

From Bemd Paysan 
Satte^ writes; 

"Just going with the flow, Greg. Hefe is my orig™i problem 
(and solution, using locals). 

: pt+ { xl yl zl x2 y2 z2 — > x3 y3 z3 J 
xl x2 + -> x3 
yl y2 + -> y3 
zl z2 + -> z3 ; 
"See my previous posting an the locals syntax. 

I wrote some w«'ks .i,^n a library Tor vcdor arilhmctio; (not 
only addition and .suhintciit m, but dot and cross product and 
3d>2d projection). I solved il with an array of six floats (called 
tenp). This is a dirty solution, but it woiks well: 
CAPS OFF 

\ case insensitive: writes faster, reads better 

Create tenp 6 floats allot DOES> 

swap floats + ; 

: temp! 5 FOR i temp f ! 

NEJET ; 
: v+ ( ptl pt2 — pt3 ) 

terrp! 3 DO 1 tatp f@ 

13+ teKp f0 f+ LOOP ; 

(and so on). 

IF I had a FP unit, I would use its registers as tempcMn,- and 
win lots of lime. The tenp array Baseful for swap, dup, dot, and 
aoespiDcbcts, for all the thlnig^you do witli ilircc-dimensional 
vecKMS. The order of the vectoronstackCx,y,z)or(2,y,x)isonIy 
impoitant for the cross produa (left hand or right ha nd). Hike the 
( X y z — ) furmat Ixx ^iu.s^^ ytw type it in tl lis order I supjxise 
you do the same, but then tell mc one thing; 1 low does your Forth 
get ftiebc^ in dK^ri^cndei? Every bcalslkiww turn ih^ 
round and you have C conventions to give paiamctcis, Le.: 
: GCT ( a b — get ) \ has locals 

1 b a } ... ; 

— Bemd Paysan 

l-'aim: Jan Slout 

IJoug Ptiilips writes; 

"Interesting. I have an entirely opposing view. If one is trying 
to use Abstract Data Types (ADTs), then one docsn t want 10 
seethc'esq^kKied'stackdi^grainsinthedoaunenCttlicxiforihe 
.\f y ("s primitSm openuions. If ttat was dcMie then the DT is 

hardly A!" 

Hm, my view is that the user of the AI5T stKxildn't see the 
definition of the ADT at all. In other languages this is achieved by 

a double specification, one on the interface level (that would use 
ptl, pt2, etc) and one on the implementation level givirig away 
the internal representation (i.e., ptl x pt2y). 

Applied to Forth, 1 find the (word) name desoiptive enough 
fix iiieifece levd, so tf»e ptl pt2 wouldn't show up at all. . . 

"I tJ link tlic roAi proUeni is Uut there is no easy way in Foriii 



Odeal \'. !tJi sn-ull suuauiespabscd directly on thestack. Using 
anairay inthiscase (iwo orthieedinienskxi^seeiusMceoveikiU. 
Howera-,rmnotataUimpressedTOththeaIt£snaiiveabtiv&" 

I Ve rame up with the following stack juggling that seems to 
call fcM' a factor (ju.st how wcxild wc name sudv a beas©: 
: Pt+ { xO yO xl yl — X y ) 

>R EOT + R> BDT + ; 

Not convinced? Well see how "easily" it's generalized to the 
ihiee-dirtiensioaal picbleixi: 
: Pt+ (xOyOzOxlylzl — xyz) 

>R >R 3 ROIi + R> 3 ROLL + R> 3 ROIIi + ; 

Well that makes OiOi doesn't iL' 

faxsK Doug Philips 
Jan Stout writes: 
"Doug Philips write.s: 

"'Interesting. I have an entirely opposii^ view. If one is trying 
touse Abstraa Data Types (AD*!^), tfien one doesntwant to 

.see the 'expkxicd ' ,si a rk i; 1 ia gra ms in fliedocumentaticMi for flie 

.:\Ui"s jmmitive operations,' 

"Hm, my view is that the user of the ADi" shouldn't see the 
definition of ADT at ail. In other languages diis is achieved by 
a double specification, one on the intents levd (that would 
use pt 1 , pt 2 , etc.) and o ne on the implementation levelgiving 
away the internal representation (i.&, ptlx pt2y).'' 

I'm in s^;reement so &r. 

"Applied to Forth, I find the (word) name deseriptivc enougfi 
for interface level, .so the pt 1 pt2 wouldn't show up at all . 

Okay, I TOS considering the "standard practice" of havir^ the 
fiisl line of a definition, which tisually contains the word's overall 
stack djaj;r;i[n, to be a word's dtxtimcntation. Ikil I agree, the 
documentation shouldn tdivulge tl le daailsof tlie iinplementatioa 
Which leads to an interesting question: How do you Of you do) 
avoid having to: 

a) know liow many cells a Pt uses or 

b) ha!ve u> invent a gazillion wotds Pt:>R, R>Pt, FtSnsP, 
PtPDLL... 

"Wdlseehow'easily'it'sgeneralizedtolhetfiree-dimensional 
pfoblein: 

: Pt+ ( kO yO zO xl yl zl — x y z ) 
+ >R >R 3 ROLL + R> 3 ROLL + 
R> 3 ROLL + ; 

"Well that makes O.tii dixsn't iL^" 

Unfbr&ireUidy, I don't buy it The sequence 3 ROLL + doesn't 
tdl the whole story. The sequence R> 3 ROLL + is a better can- 
didate except for the first u.sage. I low alx>ul; 
: Pt+ ( xO yO zO xl yl zl — x y z ) 

>R >R >R 

R> 3 rejLL + K> 3 ROm. + R> 3 ROLL + ; 

And let the compiler opting out the >R R> pau? 
Or perhaps 
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: (Pt+) COML'IIii R> COMPILE 3 CCMPILE 

ROLL CCWILI'', + ; IMMFEIATE 
: Pt+ < xO yO zO xl yl zl — x y z } 

>R >R >R (Pt+) (Pt+) (Pt+) 

But I dont much like ihat eitho'. 

— Doug 

From: Lennait Staflin 

Bernd Paysan said: 

"i suppose you do liie same, bui it»cn idl mc one thinjf Huw 
does your Foith get the locals In ibe i^ht oidei?" 

^rth the syntax LOCALS! a b c I 
ilic rollowing ddimtion would do: 

: LOCALSI 

\ Compiling: ( "11 12 ... In <|>" — ) 

\ Run tlite: < xl x2 xn — ) 

{ End marker ) 
BEGIN BL PARSE-WOTD ( a # ) 
OVER C@ [CHAR] I = 

UNTIL ( al #1 a2 #2 . , . an #n ) 

msm DUP «HII£ (LOCAL) REPEAT ( ) 

(LOCAL) ; DMEDIATO 

— Ix;nnari SLalliii 
There's more to life than books, you know. . , 
but not much more. — The Smiths 

From: Eric S Johansson 

Schrn idlg<8! iccgcc. doj la. ab . jrn V. ri I CM : 
"'Instead of locals, another po&sibiliiy lias appeared in ilic 
piESB. That is a mediantem for spedlying bdfore/afier stack 
pictures vitadv cause Stack tiansTomiation at lun time. 
Typically it looks something like: 
( sn abcdef faodbe ) 

■"vAere the "abcdef" is (he Ixibrc picture and the "facdbe" is 
(he after picture. The two major problems with this tedmiqu c 
are impiementation, and notatioa' 
"When I read about this in FD, it seemed like a workable 

scheme, but inlcrpreting strings to cfTca stack traiKfom iaiion 
does not strike me as an elegant (read horth-like) solution to 
thepfoblem." 

Interesting puiiiL .Maybe what we are diseasing here is really 
about tiic mctet "f'ojili-like" way to handle stack !nani[Xjla!ioris 
when a data dement may consist of more tiian onestack cell (i.e. , 
a point in thiee^pace or an KGB triplet pixeD. 

—Eric 

Source of the public's fear of the urdcnown since 1956. 

From: Bernd Paysan 
Lennart Staflin writes: 
"Bernd Paysan said 

"T suppose you do the same, but then tdl me one thing: How 
does your Forth get the locals in the righi oidet? 
'"With the syntax: LOCALS I a b c 1 
"'Ihe following definition would da 
: LQCALSl 

\ Corrpiling: ( "11 12 ... In <|>" — > 
\ Run time: ( xl x2 ... xn — ) 



( End marker ) 
BSXSm BL PARSE-nC9%D ( a # ) 
OWR Ce [CHAR] i - 
UMTIL { al #1 a2 #2 . . . an #n ) 

BEGIN DUP WHILE (LOCAL) REPEAT ( ) 

(LOCAL) ; nWEDIATE 

Thanks. Looks genaL I have two problems First the blod^or 
dicTIB may diajigc its kxatiai between paring (think of mulU- 
progianiming s>'stan.s). Second, I can't crcaie headers given a 
string (I can, but it is diiTicuiO. i f(xjnd a solution: I stack the 
contents of > IN, and everything works wdl. I have four wortfe 
for creatit^ locals <LOCAL sJaits the definition, LOCAL: <naiiK> 
createsa local, IOCKL>eKls the defirub'onandLOCAL; eidsscope 
oflocaJs. AH these wordsare immediate,.sothey can wofkiMthout 
addlttg new definitiCKis. So the solution is: 
: 1 POSTPONE <LOCAL -1 
( Kid marker, >1N will never be -1) 

BEGIN >IN e BL WCM) 1+ 

eg [CHAR] [ = UNTIL DROP >IN @ >R 

BtiGIN DUF Ck Cn while >IN ! POSTPCME 

LOCAL: REPEAT WOB 

POSTPCNE LOCAIi> ; IMMEDIATE 

: ] FOSTPCSE LOCAL; ; IMMEDIATE 
: TEST ( A B I A . B . ) ; 

and 

1 2 TEST 

gives 
1 2 ok 

Hunay! 

— Bemd Paysan 

From: Jan Stout 

Doug Philips writes: 

". . .question: How do you (if you do) avoid having to: 

"a) know how many cells a I'l uses OH 

"b) liave to invuit a gazillion wc^cb Pt>R, R>Pt, PtSWfiP, 

PtROLL... 

"UnTottunately 1 don'tbuy k. The sequence 3 ROLL + doesnt 
tdl the whcte story. The sequence R> 3 ROLL + is a bdter 
candidate except for the llrst usa^ How alx)ut: 

: Pt+ { xO yO zO xl yl zl — x y z ) 
^ >R >R R> 3 ROLL + R> 3 ROLL + E> 

3 ROLL + ; 
"And let the compiler optimize out the >R R> pair?" 

Sura 

"Or perhaps 

": (Pt+) CCMPILE R> CCMPILE 3 CCMPILE ROLL 

COMPILE + ; 

IMMEDIATE" 

Why go inunedi:^ 
; 3dCoord+ ( nO nl n2 n3 — nl n2 n4 ) 
3 BOIi + ; 
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Pt+ ( xO yO zO xl yl zl — X y z ) 
>R >R >R {Pt+) (Pt+) (Pt+) 

: SciT'f t ( y.O yO yl y.l yl zl — x y z ) 
>R >R >R R> 3dCoord+ R> 3dCooxtJf B> 3dCooixi+ ; 

"Bui I dont nnich like that dtha'." 

Well, I suppose dumpin' \}ie lot on an array and referencing 
the cwrdiiiaies from tlitrt; uxjuUi be more readable/ 
dSckfiC. . .which brings up my following qu&tkxi: 

Is the followirig allowed io the anient UXMs scheme? 
: < < n m — ? ) 
LOCAL m m - CK ; 

CThus mixing impltdt and explidt parameter passu^. 

If ii -wofc, that would disallow the vcjy efficient implementa- 
tion of just keeping the locals on stack till tfic ; where the upper 
stadc pait would be shifiied dowi 4i4ocaI»-tJsed times. 

—Jan Stout 

From: John Wavrik 

The dL-scussion about PT+ was intended to raise the issue of 
ll le need for iocal variables — bu I it also bri ngs lo light the problem 
of handlii^ data structures that take multiple cells. 

It can be a severe disadvantage to pu t bu Iky data stmdmes erf" 
vatyij size directly o ntlie para meter sl.icl;. Not only oinitbcliard 
to write the programs recjuircd to manipulate the data, but 
potentially it requires new sets of stack manipulation words. (Tf 
veoors ocrupy tiiree odls and integers one cell, the user would 
prcsu mably want words like WXJP, VSMRP, and mixed operations 
like VI SWAP, etc, to allow Fonfi flt^xibility in implementing 
algorithms which involve the new data objects. 'Ihis would 
becomeapparentassoonasatiyoriew^tsiouseawordlikePTf 
to actually do something) 

Insomeofthe sy.stems I've u.sod for matt lema tics, there are six 
ornKjre data types — each occupying a diffaent number of cells. 
It has been found best to have every dau objea represented by 
a single odl oo die stack (this representative is usually either an 
address, di.spla cement wit}iinasegmentsetasidefor the data type, 
or index in an array of objeas). In this way, data objects can be 
subjeaed to all the usual Forili stack operations with no difliculty. 

Tlie data objects are equipped with words for accessing their 
component parts. Hius.forvectorswewouldwanta word [ ] ,so 
iliat V 2 [ ] ^ves either [he address of the second comfxinent of 
V or the second compotK;ni itself. Qf you choose the ialler, you 
probably wiS also want a word [] ! tostoredaia.) GnidcMocte 
seems to have originated the word TH for ilie compcaieni se- 
lector — so V 2 th. 'Ihcre will also Ix:, presumably, words for 
arithmetic operations on the coordinates. 

A vector package canbeooTBHuaed in layers-^ thai iineed 
nolbe just restriaed to integer cooidihates. Information about the 
coordinate domain is communicated to tlie level that handles 
vcaor operations — so the same code for veaor operatioas can 
be used fear a varied of c&fferent types of coofdinatcs (here is 
anothef rsiscHt Id nud% sure tiiat diffeisnt types of coofdiriates 
do not have different stadc ^zes). 

The simplest way to do tliLs (a better way \^ described l>elnw) 
is to have all operations specify the taiget of their result. 'Ihus, for 
example, a veitor additicxi V+ would have the stadc diagram 
< vl v2 v3 — ) or maybe emi { vl v2 v3 — v3 ) 



where the vf are 'Vedois" (Le, the addresses of 3-luplcs or the 
indices in an array of 5 tiipte) tt\A v3 Ls inumded lobe fte rcajlr 

of adding vl to v2. The code fca- V+ will be written in terms of 
an addition operation for components. (If preferred, you can write 
code forwords like this with free use of ordinary Forth va riables — 
no reawsive calls are involved, so there is no need for local 
variaUe& Fcnth vaiiahles names can be leused — and they have 
a scope- they last until they are redefined. 'Ihcre is no harm in 
using tlie same variable names for independent procedures.) 

'1 his approach actually worlts, but i t lias the disadvantage tl lat 
the syn^ for operations is un-Fotth-likc. We would like V+ to 
have the stadc diagram ( vl v2 — v3 ) where v3 is not 
named — Ixit ju.-i .scjmeiiow appears. 'Ihis can be accomplished 
by crea ting a set of temporary borage locations for eadi data type 
0^% beenusir^l61oC3dions, and it seems to work just nni>>. 
time an operation is peffocmed, the following happens: 

1. The storage pod is searched for the next available address, 

2. Theoperation is perfonned with the resultstcffedatthisaddiess. 

3. The address is put on the s^ck as die result (^the operation — 

and it is marked as 'Wiavailable" in the pool 

e>ncc ail addfC!S.ses are marked, and no available address is 
found when requested, amini-garba^coUeciion takes place: the 
stack is cxamir>ed to see which of the 16 addresses are still being 

referenced in ilie stack — all otlicrs arc uninarked. 

litis reclamation is vct)' fast — bcc^ttise only l6 addresses are 
involved and tliey are "used" only if found on the stack — so no 
bigscardi through chains of pointers and variables is required 
It Ls easily coded in assembly language. <The only caveat about 
til is a ppmach is lliat any data of las! ing interest which is produced 
in one of these temporaiy locations should be moved to a 
permanent home. If a ten^xirary address iGsdf is stored in a 
variable, it wHl be considered available at the next garbage 
collection.) 

I \ e iist-d this approadi for strings, several basic coeflicient- 
type objects CUke BIGWUM integers and BIGRAI ratk)nal num- 
)xss>, compound objeas dike fX)lynomials with BIOTOi coef- 
6den^), etc It works great as long as everything is represented 
on the stack using a single cell. It allows you to manipulate 
"gizrnos" and "gadgets" without ajastandy being awarccrfwhat 
they kxrit like, how big they are, aiKi features of their internal 
tepreseniatkxi. SWRP swaps a gizmo with a gadget, an integer 
with a .string, eic_ 

Cllie code for this stoiagescheme for temporaries was written 
in Forth-^ usmg traditicnial Fofth teduiiques. K takes about four 
screens. It was publislied in the Journal o/ForihA/plicalion ami 
Re^arcb — which seems lo be tfeHma I'm willing to mail people 
an elairciiiic cop^ oflheaitide if someone can assure me ilial Avlh 
would not violate llie jK4A'oopyr^^]L I've never published in a 
journal that went out of bu^iiess before, so I doet krraw the 
logalitits involvwl 1 aKi have fast vasions for 1^3 andF-PC with 
selected words coded in assembly language.) 

—Jchn J Wavrik 



iTom- Dnug Phil ips 
Jan Stout writes: 
°Doug Philips writes: 
*Orpeahaps 
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: (Pt + ) CCMPII£ K> CXMPIIE 3 COIPIIE ROLL 
CCMPltE + ; 
IMEDIATE 

"Why go immediate 

Iimdeitiniinediate9othattheR>coiiklbepaitoftfie+word, 

—Doug 

From: Doug Philips 
Jdin Wavrik -wiiies: 

"In scffioe of the sistems IVe used for malheniatics, there arc 
SK or more data rypes — eadi ocaipfyinga different nundjcr 
of odk It has beoi fixtnd best to have every data objea 
lepresertfied \yy a single cdl on Ihc sta^i (ihis representative 
is usually either an atkirt^is, tlisplacemctu wiiliin a segment set 
aside for the data tyjx;, or index in an array of objects). In this 
way data objects can be subjected to all the usual Forth slack 
operations with no difficulty* 

I like thai approach. I assume that you are not talking about 
havii^ a typed stack though? 

■^di time an operation IS pefformed, the foDowing happens: 
"i "Ihcsiorajjcixxjl Lssc^ardicd fortlie nextavailableadtircss. 
"2. Itie o[X;raLior"i is pa formed witli tiie result stored al lliis 
address. 

"3. The address is put on the stack as ttie result of the 
operation — and it is marked as "unavailable* in the [xwl. 
"CJnce all addresses arc marketi, and no availabk; addrc?is Ls 
found wl len requested, a mini-ga ri )age collection Likes place: 
tlic Stack is examined to sec which of the l6 addresses a re still 
being referenced in the stack — aU odieis are unmarked" 

Iiakcil, [hen, (hat [here isonlyone area of l6itetns, regardless 
of the "type" (if iIkjsc items. . . or are you simplifying for the sake 
ofdisaissioa'Andwhathappensifalll6areinuse?0 assume that 
can happen either because some other stack value "looks like" a 
reference to one of those cells, w because too many temporaries 
are— acddently?—beir\g used.) 

Tve used di^ approach for soing?, so^ral ba^ coefficient 

type objects (like BIGNUM integers and BIGRAT rational 
numbers), compound objects (like poly nomia Is with BiaiUM 
coefficients), etc. It works great as long as cverytliing is 
represented on the stack usir^ a single oelL It aikjws you to 
manipulate "gizmos" and "gadgcas" without constantly bdng 
aware of what they look like, how h\g ihc\' are, and features 
of their internal repfcscntation. SMAP swaps a gizmo with a 
gadget, an in^er with a string, etc" 

Indeed Butagain, the prpgrammcrst3! hastoknowwhichodl 

on the stadc is of^at type O'm not .saving that is a bad thing. . .). 

By the way, Upper Deck Forth uses a very similar scheme for 
handling stringy. Butinsead of tmvti^escpHc^ slots, iisagc flags, 
etc .thdrstrat^istouseaiiaiieaofnneincHyasaiir^gbiiffer.Just 
kecpa poirnjcrtothenextfreef addressandaccomofremaining 
bytes. If tfie new string objea won't fa in the hoh left al tlie end 
of the buffer, tliai wiap to tfie beginning. l-or a IK IxifTer, liiat 
strategy guarantees at least four maximally sized strings simulta- 
neou^y, and often a lot mom But the idea is nearly &ic same. 



Tipper Dcdc has die advantage that thefe is no GC done 
\\ h.-iisrv^-ej- and it is totally up tn the programmer to make sure 
that too many live strings are not "in use" at once. 

Gouldyougivea morecompleceieferaioe todiej?vl/?aitide? 

— Doug 

J-rom: Jolin Waviik 

Concemir\g a data management scheme for temporaries 
Doug Philips writes: 

"f like tliat approadi I assume that you aic iKit talking about 

having a typt.'d stack thonj^?" 

The data stack is not typed, although it oxild be if all the 
addresses for a given addre^ ocojpy one band of tf>e address 

space. 1 generally like the 1 'orth approach of producing cliPfeJently 
named operations for each data type— -ratiier than overioadingan 
operator name and having nin-tinte overhead based on typing of 
operands. 

■"Fach timeanopetaiionispeifonned, the follow ing hapixiiis: 
°'I 'niesioragepod isseaidiedfbrthe nextavailableaddreas. 
"^. 'Ihe operation is peiformed with the lesilt stored at this 
address. 

"3. The adcbess is put on the stack as the result of the 

operation — and it Ls n"i:»rked as 'unavailable' in [he p(x>l. 
'"Once all addrc5.ses are marketl, and no available address is 
found when rcxiucsaed, a mini-garbage coUeaion takes place: 
the stack is examined to see which of the l6addiesses are Still 
being referenced in the stack — aU others are unmarked.' 
"I Lake it then that ilierc is only one area ori6 iteiTv;, rt ■g:irdl[Sfi 
of ilie lype' of those items. . . or are you simplifying for the sake 
(if di-scussion? And whalhappcnsifaD l6are in use' (I assume 
that that can happen either because some other stack value 
looks like^ a re^'ence to one of ftKise cells, CM' because too 
many temporaries are — acddentt;^— bdng used).° 

Each data typehasitsowns^ofl6temporarics. The code tliat 
manages these is the same fc^ all A child of the deflnir^ wc^d 
TEMP-STORAGE installs itself as the current data type If STRItfGS 
is one such clata ly[X:, then STRINGS TEMP returns theaddrcs.sof 
the next temporary loaition for STRINGS. CIhe word STRIiflGS 
sets the current data type, and TE21P returns the next free address 
for the current data type.) 

In general, all tfiis is made invisible at tlie top k^^. The 
sequence 

$" ABC" $" XYZ" OVER $+ S+ 

will pill the (temporary) addre^ss of the String ABCXYZABCon top 
of the .slack llcie, $" is .state smart— but its interpret-time aaion 
Ls 

: $" STRINGS TEMP ASCII " WCRD OVER $! ; 

where 

: 5 ! OVER C@ 1+ CM3VE ; 

while $+ concatenates two strings, puttirig the result in a 
temporary and rduming the address of the tcanpoiary to the stack 
If all l6 temponrries are in use, there is an iU30RT. I'xct-pt for 
programmif^ orois, this lias not occuntd in practice. It is easy 
iomakeupeKampli :s where l6 locations could be iasulTidentCif 
you mint K> add 20 ihiq^, you could put them all on the stack 
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and liiun ;ij)p!y acitL'lion 19 lifncts — -Ixjt yi >l! am also add as you 
go). It should be noted that H-P calculators have only ftxjr 
locations fix tei^poraries-«) 16 is pfdbably fcx> many. 

"'IVe used this approadi for strings, several basjc co^dent 

type objeos Oike BIC3^UM integers and BIGRAT rational 
r lui iibcrs) , compoiand obj ccis ike polynomials with B IcaJUM 
coefficients), t^lc. It work* great as long as everything is 
lepresenced on the* stack Lising a single celt. It allows you to 
manipulate 'gizmos' and 'gadget' without constantly being 
awaie of ^i^iihey lodcliSei how big they are, and featuies 
of thdr internal rq3resentation. SWW swaps a gizmo wifli a 
gadget, an integer ^^^th a string, etc' 
"Indeed, ikit ag^, the programmer still has to know which 
ceil on the stack is of what type Cm not saying llistt dm is a 
bad thing.. 0" 

Yes — the programmer sliU lia..s to know what Ls on tlicsiack 
and iB type — but ntx iti si7c No additional .-yack manipulation 
words need to be created The. si f irage management is concealed 
in the operation and input words, so becomes transparent for 
progcamnung using these opeiations. 

Tixample for veaors there is an additicxi v+ and scalar 
niuliipiicaiion cV* (applied with scalar on lefD. 
a b V W — aV + bW 

can be produced by 

ROT SWAP CV* -ROT CiV* W 

1 1 docsn' t matter which dinve nsion the vector spa ce Is, because 
the components are not being stored on thestack. As a result, mc^ 
of the (^de in a vector package is independent the size 
of vedorsL 

°By the v,Tiy: Upper Deck Forth uses a very .similar scheme for 
handling strings. But inSead of having explicit slots, usage 
flags, etc., ilieir Kiraieg>- is to use an arc^a of mcmor>' as a ring 
bulTer. Just keep a fxiintcr tutJ le next 'free' addr^anda count 
of rcmainirg bytes. Ifthcncw<suingobjec£w(Mi*tfitinthehole 
left at the end of the buffer, tlienwraptothebeginntt^For 
a IK buffer ih^ strategy gMarantees at least four maximally 
aizedstringSSimultanecHiKly, and often a lot more. Rut the idea 
is nearly die same: The Upper Deck has the advantage that 
there is no GC dcaie "w^iatsoever and it is totally up to the 
prpgrammer to mate sure that too many live strings are not 
'in use' at once" 

In this ring-bufFer sdicrnc, 1 assume tliai i)ic addresses and 
lengths of sihiig.-^ suU in use are tagged somehow, so that if the 
pointer cifdes the rifigit will not allow there-ijseofmanorybdng 
used by an active string, Nev& having seen ttie Upper Dcdk 
system, I dont knowhowitdetomincs if a stiii^ is ^ inactive 
use. 

"Garijageti^llection" isaoually a bit ejiCf^vsiveatemifixwhai 
is done In my method it amounts to searching the stadc Omd 
pediaps somendiere else) to find whidi strii^ are no longer 
active— & is nowhere near what LISP nnist do to redaim storage. 

"Could you give a more ccxnplcle reference v> the JFAR 

article?' 

"Handling Multiple Data Types in Forth' by John J. Waviik 
^>l/?vol.6nal C199CD. 

-^din J Wavrik 



From: DougPhilijy; 
John Wavnk writer: 

"The data stack is not lyp(x1, although it could be if all tfic 
addresses foragiv^ address ^oumeontype, r^fHi^ocaip^ 
one band of tte addness space. I generally like the Forth 
approach of producing differendy n a ni c-d operalions fur eacli 
data typo — laihcr than overioadiiig an operdlor name and 
having lun-timc ovcihead based on typii^ d operands." 

I agree. However, having a typed stack doesn't riccx>.sarily 
mean you have to use it to dispatch operatois (though that is a 
fH-etty obvioasthingto do with id. Evengjventfie'addressiange"- 
typing kindofsy.stcm yt )u mentioned failsbecauseitassumesihat 
everything on the stack is a pointer. 

"In this ring-buffer scheme, I assume that the addresses and 
lengths of strings stiB in use are tagged somdiow, so that iflhc 

[xjinicrcirdt"?; the ring it will not allow the rc-use of memoiy 
being usc-d by an active string. Never liavingsecn the Upper 
Dock s>'stem , I dont know how it d^emincs if a string is still 
in active use." 

There is no check . 'Ihe premise is that the progra mmer knows 
how many maximally lengltied (counted) strings can be tempo- 
rary at once, and so mu.st ntu use aiiy moi c U lan il wL 1 cannot say 
that I am pMosophically or practically Ix}!!^'^^! by tlicir choice, 
but I probably would have done things difftreritly. 

My guess is that the biggest gotdia in either mahod is in 
keeping (or thinking that you can keep) temporary oh^eccs live" 
over calls K> non-tn\nal words: 

''GaibageCoIieaion^isaauaUyatAeKcesaveatjemiforwhat 
isdcxie.'' 

I nclcxxl. You r me tl lod ckx^sn'thave the ov erwii teholetliatlhe 
UjiperDeck System's meth(xidoes> but then tieitlier mcihod will 
catdiaa^ofthetemporary points instead of copying the data, 

— Doug 

P.S. I elkkd all die stuff diat I agreed with Onostly). 
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"This theme applies equally to projects requiring multiple 
programmers, and to applications or systems consisting of 
large amotints of code and/or of significant complexity." 
("Editorid," XI It/6) Papers will be refereed. 

Mail a hard copy and a diskette (Macintosh 800K or PC 
preferred) to the; 

Forth Interest Group 

P.O. Box 2154 • OaklarKl. California 94621 

Cash awards to authors: 
istpiaces $500 
2na^ace: $250 
3rd places $100 

Dsadtine tor contest entries is August 3, 1992. 
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Forth resources & contact informalion 




Please send updates, corrections, additional listings, and suggestions to 8w Editor. 



Forth Interest Group 



The Forth Inieresl Group serves l)oth expert and 
novice members with its network of chapters, Forth 
Dimensions, and conferences that regularly attract 
participants from around the world. For membership 
information, or to reserve advertising space, contact 
the administrative office: 

Forth Interest Group 
P.O. Box 2154 
Oakland, California 94621 
510-89-FOR'm 
Fax: 510-535-1295 



Board of Directors 

John l-Ialt, President 
Jack Woehr, Vice-P resident 
Mike Elola, Secretary 
Dennis RufFer, Treasurer 
David Petty 
Nicholas SdlrusefF 
C.H. Ting 



Founding Directors 
William Ragsdalc 
Kim Harris 
Dave Boulion 
Dave Kilbridge 
John James 



In Recognition 



Ke cognition is offered an- 
nually to a person who has 
made an outstanding con- 
tribution in support ofForth 
and the Forth Interest 
Group. The individual is 
nominated and scleaed by 
previou.^ recipient of the 
"FIGGY." Fach receives an 
engraved award, and is 
named on a plaque in the 
administrative offices. 



1979 William Ragsdale 

1980 Kim Harris 

1981 Dave Kilbridge 

1982 Roy Martens 

1983 John D. Hall 

1984 Robert Reiling 

1985 Thca Martin 

1986 C.H, Ting 

1987 Marlin Ouverson 

1988 Dennis Buffer 

1989 Jan Shepherd 

1990 Gary Smith 

1991 Mike Hola 



ANS Forth 




Ihe following members of the ANS X,3Jl4 Forth Stan- 


dard Committee ai 


e available to perstiiially carry your 


proposals and concerns to the committee. Please feel 


free to call or write to them direaly: 


Ciary Betts 


Charles Keane 


L'nLsyn 


Performance Pkgs., Inc. 


301 Main, penlliouse *2 515 Fourth Avenue 


Longmoni, CO 80501 Watervleil, NY 12189-3703 


303-924-9193 


518-274-4774 


Mike Nemetli 


George Shaw 


CSC 


Shaw Laboratories 


10025 loaisi .St. 


P.O. Box 3471 


Glenndalc, MD 20769 Hayward, CA 945-^0-3471 


301-286-8313 


415-276-5953 


Andrew Kobziar 


David C. Petty 


NCH 


Digilel 


Medical Systems Group 125 Cambridge Park Dr. 


950 Danby Rd. 


Cambridge, MA 02140-2311 


Ithaca, NY M850 


607-273-5310 




Elizabeth D. Rather 


FORTII, Inc. 




Ill X. Sepulveda Blvd., 


suite 300 




Manhattan Beach, CA 90266 


213-372-»i93 





Forth Instruction 



!m Angeles — introductory and intermediate three-day 
intensive courses in Forth programming are offered 
monthly by laboratory Microsystems. These hands-on 
courses are de.signcd for engineers and programmers 
who need to become proficient in Forth in the least 
amofunt of time. Telephone 213-306-7412. 



Forth C^ensions 



41 



Julv 1992Aijaust 



(letters, Jrom page 5.) 

I/O Time Dominates Real Performance 

DearMaiiini 

I heartily agree with Jim Callahan's remarks con- 
cerning inadequacy of relying solely on speed 
benchmarks when evaluating Forth implementations. 
Not only is itimportantto look at the full set of tradeoffs 
Csuch as compactness, etc.) as he points out, it L-i also 
important to remember that tlie aspects of perfor- 
mance measured by this set of benchmarks don't give 
an accurate picture of the overall performance of an 
application. In most real-world applications, perfor- 
mance is overwhelmingly dominated by the time 
required for I/O, A system that offers low-overhead 
interrupt handlingandhigh-speedmultitaskingsudi as 
polyl'OK'IH can often out-perfbrm other run-time 
environments. 

However, Callahan's remarks about pulyi-Oirrn 
are inaccurate. The multi-segment polyFORTH uses, 
in its minimum configuraUon , one code area up to 64 K 
(for machine code, definition pointers, and heads) and 
one data area up to 64K (for disk buffers, global 
variables, and task space, including .slacks and user 
variables). Between these areas there is no duplica- 
tion. Exua memory (up to DOS' 640K limit) may also 
be configured. Typically, such extra memory is used 
for large data aructures, but it may also be configured 
for additional code modules. In the latter case only, 
routines u.sed by those modules are replicated. The 
amount of replicated code is controlled by the pro- 
grammer, t)in rarely exceeds about 21 K. The cost rjf 
avoiding this replication would be a substantial speed 
penalty imposed on routines in the extra code mod- 
ules, as well as extra bytes required for addresses. We 
have found it to be an appropriate tradeoff. 

In trxiay's market, .sub.stamial PC applications are 
generally written for a 386/486. As noted in Kelly's 
article, we also offer a 32-bit, protected-mode system 
which is well suited for large applications, leaving the 
l6-bit, segmaited model as an economical solution for 
low-end applications. 

Sincerely, 

rlii-abeih D. Rather, President 
Poni), Inc 

111 N. Sepulveda Blvd. 

Manhattan Beach, California 90266-6847 

CREATE ... DOES> Erratum 
Dear Marlin. Ijust received the new is^e of 

JrEfXIV/ll. I am glad you are are recruiting more 

tutorials. 1 have found an error in my article. In 

Screen 3, MAKE- 8 reads, 

: MAKE-8 ( i — a) SWAP 8 * + ; 
U should read 

: MAKE-8 ( i ~ a) DOES> SWAP 8 * + ; 

— Leonard Morgenstern 



RIME (Re lay inl ernaiional Message Exch.) Forth Conf. Echo ~| 



lil.MI: is a PC- 1 kijirci-t 1 n(U work similar to FIDO, 'the Forth Conference 
originates on Jim Wcnzcl'.^ G rapevheBBS in Ultlc Rock, Arkan.sa5. Messages 
carried on HIME Fonh Conference are essentially Idenclcal to those carried 
on the GEnie Fc^lhBoundTable and<»i U$eN^ci:»^>.langf onh newsgroup. 



BBS Namo 

Evergresfi BBS 
Bob'S Comer Board 
Country Lane 
The Running Board 
AmerlServe 

Ground Zero Wildcat BBS 

The Holistic BBS 

Shy Guy's PCBoard 

DFW Programmer's Exchange 

The Lunatic Fringe BBS 

Ronin 

The Round Table BBS 
Slreot Noise' BBS 
Baud line li 
Network East 
TTie Jelllcle Gate 
Tl^e Carousel 
Sack to Basics 
Travel Online 
W.O.R.E. 
Caslte Rook BBS 
D.W.'s Toolbox 
The Right Place tm) 
The Chair TOOl 
PDS-SiG BBS 
The Caves 
Eds Home 
ProPC BBS 

PGHSouth PCBoard System 

space BBS 

fv'c.'--i.~.. Hospital 

C;!;i .'!{;;> Ronr^te Systems 

Host; MtxJia 

Tho Grapevine BBS 

T'-c GrapeVine Hemote Node III 

The Pegasus BBS 

Alpine BBS 

The Crooked Blade 

River Road BBS 

IDC BBS 

Modem Zone 

Channel ! 

Capital Connection 

Hallucination BBS 

No-Frills BBS 

Struppi's BBS 

The Virginia Connection 

The Bellway Bandits BBS 

Programmer's Palace 

Technet At TJHSST 

Carolina Forum 

Nezukj's Domain 

Aquila BBS 

Cloud Nine BBS 

The Punk in Duster BBS 

Crystai Castle 

Moondoc] 

Ttie IcelDox BBS 

Rocky Mountain Software 

Club PC BBS 

The Computer Forum BBS 

The Godfather 

St. Pete Programmer's Exchar>ge 

DataBoard ][ BBS 

The Mog-U's EMS 

Medical Information Systerns 

The Enchanted Forest BBS 

The TREE BBS 

Ramwood 

The Imperlum BBS 

PC Rockland BBS 

The Pub BBS 

Brentwood BBS 

Technical Information 

O.L.E.F.1 



City 

Hopatcong, NJ 
Gainesville, FL 
Ken nm bunk, ME 
Bronx, NY 
New York, NY 
Seal Be^h, OA 
Lakewood. OA 
Lewlsville, TX 
Dallas, TX 
Piano, TX 
Waxahachie, TX 
Reading, PA 
Germantown, MD 
Frederick, MD 
Rockville, MO 
Rlverdale, MO 
Hollywood, FL 
Casper, WY 
Lake St. Louis, MO 
Middletov/n, Rl 
Omaha, NE 
Riverdale. GA 
Atlanta, GA 
San Jose. CA 
San Jose. CA 
Scotts Valley. CA 
Columbia, MO 
Pittsburgh, PA 
PIM^urgh. PA 
Menlo Park, CA 
Los Altos, CA 
Misssissauga, CN 
Willowdale, CN 
N. Little Rock. AR 
Little Rock, AR 
Owens boro. KY 
Saiem, OR 
Monmouth, OR 
Sorrento, LA 
Alameda, CA 
Middletcwn . OH 
Cambridge, 
Fairfax, VA 
Fairfax, VA 
Falls Church, VA 
Hern don, VA 
Reston, VA 
Fairfax, VA 
Springfield, VA 
Alexandria, VA 
Charlotte, NO 
Norlh brook, IL 
Aurora, IL 
Katy, TX 
Fulierton. CA 
Staten Island . NV 
Brooklyn. NY 
Flushing, NY 
Salt Lake City. UT 
Smithfleld, VA 
Virginia Beach, VA 
Tampa. FL 
St Petersburg. FL 
Crowley. TX 
Granada Hills, CA 
Jacksonville. FL 
Gainesville. FL 
Qcala. FL 
Fairbanks. AK 
Middletown. NJ 
South tvlyack, NY 
White Plains, NY 
Harrison, NY 
Taipei, TW 
London, UK 



Phone 

201-398-2373 
205-361-9094 
207-499-2756 
212-654-1349 

212- 876-5S85 

213- 430-0079 

213- 531-3890 

214- 315-3795 
?14-3<^a-3112 
214-4?2-?936 

214- 938-2840 

21 5- 678-08 iy 
301 601-8710 
301-694-7106 
301-73B-0000 
301-779-5946 
3lH-967-56e8 
307-235- 7tM3 
314-625-4045 

401- 849-1874 

402- 572-8247 
404-471-6636 
404-476-2607 
408-241-7276 
408-270-4085 
408-438-1194 
410-rao-2917 
412-^1-6645 
412-563-5416 

415- 323-4193 
4 15.9'1 1-5384 

416- 629 01 36 
416-733-2285 
501-753-3121 

501- 821-4827 

502- 684-9855 

503- 561-0923 

503- 838-4059 

504- 675-8792 
510.B65-7115 
513-424-7529 
617-354-8873 
703-280-5490 
703-425-5824 
703-538-4634 
703-620-2646 
703-648-1841 
703-764-9297 
703-866-4452 

703- 941-3572 

704- 563-5857 
708-559-0513 
708-820-8344 

713- 859-8195 

714- 522-3980 
718-370-803! 
7 18-692-2498 
718-793-8548 
801-963-8721 
804-357-0357 
804-471-3360 
813-289^3314 
813-527-5666 

817- 297-6222 

818- 366-1238 
904-221-9425 
904-377-2001 
904-732-0866 

907- 456 6375 

908- 705-0213 
914-353-2157 
914-686-8091 
914-835-1315 

01188622151127 
44-81-882-9808 
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Sleeping 
with file 
Enemy 

Conducted by Russell L Harris 
Houston, Texas 

TIk' in:Hij5iiraI fiack Burner column bi«;K:hcd itK" proh 
lem of obtaining authorization of a client or boss to use I'orlb 
on a paiticular contract, tn that column, I proposed demon- 
stration apparatus as a possible approadi to seaiTuig such 
authorization. In this colunnn, risking a fusillade of brickbats 
and charges of heresy, I wLsb to suggest another possibility, 
that of utilizirig a mixture of Forth and C (or whatever the 
language to which your firm or client is committecD. 

The general idea is to get your foot inihedoorby agreeing 
to do llie project in the language specified. Being knowl- 
edgeable in Forth, you wiilJnevitably utilize Forth to facilitate 
development and testing. This code comprises your primary 
sales tool. As such, it should be written and commented with 
exceptional care. What you are counting on is the intelli- 
gence, rationality, and ol^ectivity of the boss or client. Once 
you can show him funaional Forth code side by side with 
functional code written inC, etc, in the same project, ii .should 
not be difficult to make your case. If the ploy doesn't work, 
at least you have employment and another C project under 
your belt. 

Tfie inconsistency of C is 
simply taken for granted and, 
at times, even praised as 
versatiiity. 

The Carrot on the Stick 
Granted, learning C in order to get projects on which you 
h ope to u se Forth may not a ppear to be a sou nd proposition . 

However, there is another incentive: C is rapidly bccriming 
the lingua franca in which program algorithms are pre- 
sented. This is paiticulady true in die realm of digital signal 
processing algorithms. Revolting as the thought may be, 
familiarity with the rudiments of G may soon become as vita! 
as familiarity with the mdiments of MS-DOS. 

FHmflam, 
or Malice in Blunderland 

C is a complex language which is difficult, to master. 
Complexity itself is noi the culprit; rather, the diffiaiky 
springs from inconsistency. 



C is a language of innumerable rules. Moreover, there are 
far more arceptions than there are rules: everything seems 
to be a special case. VPhen programniingmConecannoirely 
upon logic or iruuilion to guide him in syntactical constmc- 
lioii or in deducing the behavior of a code segment. One 
simply must learn C by rote. 

like something fiom the pen of Lewis C^arroU, C re- 
sembles a child's game in which tfic participanLs make tlie 
rules as they go along, wliimsically changing tliem in order 
to thwart one another's progress. The strange tli i ng is that no 
one (other than programmer.^ know Icdgc.iblc in as,scnibler 
or Fortli) seems to think the situation strange, improper, 
ufma:essary, or inexcusable, 'Ihe inconsistency of C is 
simply taken for graittcd and, ;(( linies, even praised as 
versatility Tndecd, reading Kernlglian A Kichie's Jbc C 
Pmgramming f^tiguage brought to my mind the old adage 
of product advertising that goes •><iinething like dii.s: "If you 
can't fix it or hide it Irefcrring to a glaring deficiency), lout it 
a.<j a feature." 

APIan<tfAt^ck 

Needing to learn the rudimeiit.sofC, ! flcr]uired, upon the 
advice of a colleague, a copy of the second edition of Vass 
St Chui's Twto C++ Disktuio?- Before you msh out and buy 
a copy, let me warn you that the book contain.s an irrespon - 
sible number of formatting and typographical errors, particTi- 
lady for a .second edition, and is in dire need of the services 
of a competent editor. 

Nevertheless, I found Voss&Chui a usdul framework in 
which to approach the formidable worki of C and object- 
oriented prograrnnung. The authors take the reader .step by 
step tl trough construction of a windowing system foi the 
lBM-KyMS-IX)S environment, definitely a useful goal. 

ixliat's in a Name? 
As astute readers by now have discerned, lliere is a 
correlation between the name of this column and the 

placement thereof within the page.s of this publication. Ttic 
inspiration I owe to 1-d 7x:m, author of the "i'xit, laughing" 
column which occijpies the corresponding location in the 
outdoors magazine rield&Stream (not to be mistaken for the 
horror magazine, published in Braille and bearing ihe title 
!'t\'i & Scmani). 

i here is, however, a more serious side to selection of the 
Lille, and this is in keeping with the kitdien stove analogy. In 
most commercial erideavor.s, the back burner is where in- 
hou.se adv.mcLW are made, whereas activity on the front 
burner.s itiuct.s iIil: ]">ayrall and pays (Jic bilb. 'VC'iihout 
rescarch-and- development projects on the back burner, 
advances in capability arc limited to tools and techniques 
develop(.:d l.v} others and made available on the commercial 
market or desaibed in tlie literature. 

It LS miy intcnu'on that this column serve as inspiration for 
back-burner developineiii Reader inLerLictioii is essential, if 
the column is to be su< ce.s-^ful and continue K.S.V.P. 



Russoll Htirris is 3 consulling cnfjinccf wofking with embedded systems in the 
ficidi or II isiiLimoniaiion and machino control. He cari 1^ iBached by ption^ at 
713 461161B. Of at his RUSGELL.H address on CiEnie. 
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NEW FROM THE FORTH INTEREST GROUP 



"...FORTH UnotusuaUy en- 
countered williin the context of 
scientific or engineering com- 
putation , although mostuscts of 
jicrsonalcompiitcrNorworksta- 
Lioii.i; havf, unwillingly txpcn- 
oncci:! i[ in one forni or anoiilcr. 
FORTH lias becncallud 'ont of 
ftie best-kept secrets in com- 
puting*. It luifcs unsoen in auto- 
matic bank teller machines, 
computer games, industrial 
control devices and robots... 

"Some scientists and engi- 
neers have gained familiarity 
with FORTH because it is fast, 
compact, and easily debugged; 
and becuise it simplifies inter- 
facing mtcrafXDcessois with 
machines and laboratory 
equipment... 

"...FORTH has the ability 
not Ofily to itproduce all the 



funcUonality of FORTRAN— 
using less memmy, conqnUng 
muGfa&steratdoftenexBOiting 
faster also — but to do things 
tlial FORTRAN eould not ae- 
complis!) cii.'iilyorrvcnalall.., 

"OiK ro;is(>ii FORTH li^i.'. nnt 
yet realized its potential in scien - 
tlfic compatii^ is flut sdenti.st.'^ 
andpro^snmKR tend toieside 
in orthogonal ocxmnunities, so 
that no one has until now 
troubled to write the necessary 
cxtLMi^ i<) ris . f ^ic a irn I >f tlii-^i 1m M )k 
is It) providi; such c Men si on K in 
a form I hope wi]l prove apjx^al- 
ing to currait FORTRAN vseis. 

"Since time and chance 
peaiaevayftiing.ewtiiFORTH, 
I have devoted considemble ef- 
hxl (ocxpkuiiiiy llie nillims 
:<ndideasbehind iheseextensions, 
as well as theirnws andbdts. . 



Scientific Forth 
by Julian V. Noble 

Sdentific ForA extends the Fcxth kemel in the direction of scientific 
problem solving. It illustrates advanced Fortli progranuning techniques 
with non-trivial applications: computer algebra, roots of equations, 
differential «)uaiions, function mlnimiwaicm, funoiional representation of 
data (FFT, jKilynomials), linear equations and matrices, numerical 
integratien/Monte Carlo methods, high-speed real and complex floating- 
point arithmetic (biehides disk with programs and several utilities.) 



$50.00 
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